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1.0 ABSTRACT 


ts 


Version ‘'C'’ includes the patch to correct an error in the 
differential Linearity test. Version ‘'C’’ also allows the program 
to execute properly on an ‘‘F-11"' cpu. 


This diagnostic has two starting addresses: 


200 standard tolerances 
204 restart 
219 tighter tolerances for the option test area's burn in. 


This diagnostic tests the ADV11 with or without the test 
connector. 


When starting the diagnostic, a set of tests is listed and this 
statement is printed out: ‘Type the letter and carriage return 
of the desired test:''. The following chart indicates which 
letter corresponds to which test: 


Ww: The entire Wraparound test (requires test connector) 


a. Analog subtests 

b. Noise test ; 

c. Interchannel Settling test : 

d. Differential Linearity and Relative Accuracy test 
C: Calibration test only 
P: Print values test only 
L: Logic Subtests only 
A: Auto test (requires test connector) 

A. Logic subtests 

B. Analog subtes 

C. Noise Test ‘ 

D. Interchannel Settling Test : 

E. Differential Linearity and Relative Accuracy Test 
REQUIREMENTS 
Equipment . 


LSI-11 or F-11 computer with 8K of memory 

1/0 Terminal 

ADV11 Module j 

VT55 OR VT105 Terminal supported for graphic output (optional) 
Test connector (70-12894) 


SEQ 0002 
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3.0 


4.0 


4.1 
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Storage ; 
This program uses ail 8K of memory and is not ‘‘chainable’’ on an 
8k CPU. The program is ‘'chainable’’ on 12K or greater CPU. The 

or 


program will destroy “absolute loader’’ on an 8K CPU, if ‘‘w'’ 
‘A’ is selected. . 


LOADING PROCEDURE 


Procedure for loading normal binary tapes should be followed. 


STARTING PROCEDURE 


Control Switch Settings 
Standard PDP-11 Format 
SW15=1 Halt on error 


SW14=1 Loop on test 

SwW13=1 Inhibit error typequts 

SW12=1 Halt for VT55/VT105 GRAPHIC DISPLAY TERMINAL 
Swii=1 Inhibit iterations 

Swi0=1 Bell on error 

Sw9 =1 Loop on error. 

SwW8 = Loop on test in SWR <7:0> 


Location 200 is the starting address of the diagnostic for 
standard tolerances. 204 is the restart address. 210 is the 
starting address of the diagnostic for the option test area's 
burn in test. 
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5.0 OPERATING PROCEDURE 


Start the diagnostic at 200 or 210. The program wy bey and the 
List of tests available, will be printed out followed by a 
message ‘Type letter and <CR> for test: '. Then type the letter 
you want, according to the table Listed and depress return. If 
started at the option test area's starting address, the program 
will not ask for the test but will run the logic test. 


Two control characters, “A and “C, are set aside for interrupting 
a test and transferring control to either the beginning of the 
diagnostic (“C) or to the pegrearns of the specific test which 
was in progress (*A). During the logic tests while a reset is 
being performed, “C or “A will not be executed until after the 
reset has been + eat therefore continue typing “C or “A 
until it is successful. 


For machines without a hardware switch register, location SWREG 
(176) is used as a software switch register. To modify the 
contents of SWREG, type “G. The program responds with the 
current contents of SWREG and a slash. Type the desired new 
contents of SWREG followed by a carriage return. 


If ‘W'' is typed, the program will type ‘'XX ADV11"s FOUND’. Where 
XX is the number of ADV11's in octal. If the number is greater 
than 1, the test will be run successively on each ADV11. The 
eree will run oe the analog subtests, the Noise test, the 
nterchannel Settling test, and the Differential Linearity and 
Relative Accuracy test. The Test connector is required. 


it. i typed. the program will run the calibration routine and 
loop on the test until it is calibrated and a carriage return 
typed. If acertain ADV11 is to be calibrated, its status 
register address must be loaded into $BASE (1250), and its vector 
address must be loaded into the low byte of $VECT1 (1244). 


If 'P'' is typed, the program will run the print values routine 
and will loop on that test until the operator halts it. If a 
certain ADV11 is to be tested, its status register address must 
be loaded into $BASE (1250), and its vector address must be 
loaded into the low byte of $VECT1 (1244). 


SEQ 0004 
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5.2 
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If ‘A’ is typed, the program will execute the logic tests, analog 
tests, moise, settle and differential gag oF At the 
beginning of the test the program will type ‘XxX ADV1I"S FOUND’. 
Where XX is the number of ADV11's in octal. If the number is 
greater than 1 the test will run successively on each ADV11. 


If "L'’ is typed, the program will execute the logic tests, 
the thes "END PASS'' when it has completed an entire pass. At the 
eginning of the test the program will type ‘XX ADVI1'S FOUND’. 
Where XX is the number of ADV11's in octal. If the number is 
greater than 1, the test will be run successively on each ADV11. 


Inhibiting Auto-Size Feature 

This program will automatically auto-size and test each ADV11_ it 
detects on the system. To inhibit this feature, set bit 15 of 
Location SENVM (1214). Also, load location $BASE (1250) with the 


ADV11's status register address and the low byte of location 
SVECT1 (1244) with the ADV11's vector address. 


End of Pass Typeouts 
At end of pass, the following typeout will occur: 
“ENDPASS GOOD UNITS 0000000000000011 


This indicates that units 1 and 2 have run without failure. 


ERRORS 

This program uses the Diagnostic ‘‘SYSMAC’' package for error 
reporting and typeout. he error information consists of the 
following: 

ERRPC: Location at which an error was detected. 

STREG: Address of the status register. 


ADBUF F : Address of the buffer 

CHANL : Channel value 

NOMINAL : Enpected correct data — 
TOLERANCE : he acceptable deviation from the nominal 
ACTUAL: Actual data 

EXPECTED: Expected correct data 


SEQ 0005 
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MISCELLANEOUS 


Execution Time 


Execution time for each of the tests is: 


Calibration: 5 conversions/min 2110 baud 

Print Values: 8 conversions/8 seconds @ 110 baud 

Wraparound Test: 7 minutes first pass; 25 minutes 
for successive passes 

Logic Test: 1 minute 

Auto Test: 8 minutes first pass, 26 minutes 


for successive passes 


Status Register and Vector Addresses and Priority 


When testing more than one ADV11, the difference in addresses is 
4 for bus address and 10 for vector address. These values are in 
VADR (bus address) (1336) and VVCT (vector address) (1340). The 
first ADV11's status register address must be in $BASE (1250), 
its vector address must be in the low byte of $VECT1 (1244). 


Switch Register 


If a hardware switch register is present and the operator desires 
to use a software switch register and the “G feature; it is 
necessary to load the starting address, set the hardware switch 
register to all ones (-1), and depress start. The program will 
then run with the software switch register. 


SEQ 0005 


7.4 
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H 
Page 7 


V™55 Graphic Output 


The screen display may be halted for examination by setting bit 
12 of the switch register. Then, type ‘'P’’ to complete the 
program's execution. 


RESTRICTIONS 


Testing 


The Test Connector must be present when running the auto test and 
the wraparound test. 


Starting Restriction 


If a free-running clock, such as 60Hz2 from the power supply, is 
attached to the BEVNT bus line on both Rev level C/D and E 
systems, an interrupt to location 190 will occur when using the 
"G'' and ‘'L'' commands prior to executing the first instruction. 
Therefore this program can not disable the BEVNT bus Line by 
inhibiting interrupts. 


User systems requiring a free-running clock attached to the BEVNT 
bus line can temporarily avoid this situation by setting the 
PSW(RS) to 200, instead of using the ‘'G'' command, load the PC 
(R7) with the starting address and use the proceed ‘'P’’ command. 
Before using the ‘'L'’ command, the PSW(RS) can be set to 200 to 
avoid receiving the BEVNT interrupt after loading the ABS loader. 


Possible Program ‘‘BOMBS"’ 


The first two tests of this program check to see if the ADV11 
responds to the expected address. If the ADV11 does not respond, 
a buss error occurs. Also bus errors can occur during the time 
the program sizes to see how many ADV11's are on your system. 


For more information on the next subject, see JAN. 1976 LSI-11 
ENGINEERING BULLETIN issued by The Digital Components Group. 


Bus errors may alter the preset contents of location 4 before the 
trap is executed, thereby transferring program control to area in 
the program that was not set up to handle the trap. If this 
ree £ he the program will ‘BOMB’ and possibly rewrite parts of 
itself. 


1 
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9.0 PROGRAM DESCRIPTION 


9.3 


Logic Tests 


These 21 logic subtests run sequentially without further operator 
intervention. Its purpose is to check that each of the status 
register bits that are read/write can be loaded and properly read 
back; that initialize clears the external start enable bit, the 
done bit, the interrupt enable bit, the overflow bit, the error 
flag, and the A/D start bit. It also checks that the A/D done 
flag sets. at end of conversion and clears when the converted 
value is read. It checks the interrupt logic and the correct 
setting of the error flag. 


Calibration Routine 


If ‘'C’' is typed, the program will ask for a channel. Type 
channel number followed by a carriage return. The program will 
ask you if ~ want offset or gain. Apply se requested to 
selected channel. Adjust pot requested for 0.00 LSB typeout. 
yee carriage return when adjusted. The last typeout will be 
checked for 0.00 LSB with a tolerance of 0.04 LSB if outside, the 
program will ask you to adjust the same pot again. 


Print Values Routine 


This test begins when the operator types 'P’’. It then loads the 
channel from the switch register bits 0-7 and does a conversion 
on that channel. If SWR bit 13 is down (0), it prints out the 
converted value on the teletype; otherwise, if SWR bit 13 is_up 
(1), it puts the converted value in the display register. The 
operator may change the channel at any time vie the test, 
however the new values from the new channel will not be printed 
until the next Line of 8 values is printed. The 8 values on each 
line correspond to only one channel. 


vifferential Linearity 


This test determine if a change in the input voltage represents a 
similar change in the resulting converted binary value, by 
measuring the width of each state correct to 0.01 LSB. 


SEQ 0008 
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Settling Test 


The purpose of this test is to check that the time needed to 
settle and correctly report anew input value after switching 
alae does not exceed the expected amount of time for such a 
change. 


Noise Test 
This test measures the internal short-term repeatability noise 
within the A/D. RMS noise-.equals 1 standard deviation of the 


Gaussian curve, PEAK noise equals 2.3 standard deviation of the 
Gaussian curve. 


Analog Tests 


These 6 subtests check the channels and their output. 


SEQ 0009 


MAINDEC-11-CVADA-C MACY11 30G(1063) 29-SEP-80 10:31 
CVADAC.P11 29-SEP-80 09:34 TABLE OF CONTENTS 
22 BASIC DEFINITIONS 
23 OPERATIONAL SWITCH SETTINGS 
31 TRAP CATCHER 
(1) STARTING ~ artes 
35 ACT11 H 
37 APT PARAMETER BLOCK 
38 COMMON TAGS 
(2) APT MAILBOX-ETABLE 
(1) ERROR POINTER TABLE 
76 MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS 
126 CONTROL A AND C DECODERS 
159 INITIAL START-UP ,HOUSEKEEPING, AND DIALOGUE 
164 INITIALIZE THE COMMON TAGS 
169 DETERMINE IF VT55 TYPE TERMINAL IS PRESENT 
185 ee TO DETERMINE WHICH TEST TO RUN 
271 FLOAT A ONE THRU MULTIPLEXER BITS 
280 12 LOAD AND READ BACK ERROR 1.€. BIT14 
284 13 LOAD AND READ BACK INTERRUPT ENABLE BIT6 
290 T4 LOAD AND READ BACK CLOCK OVERFLOW START ENABLE BITS 
295 15 LOAD AND READ BACK EXTERNAL START ENABLE BIT4 
299 T6 LOAD AND READ BACK meee TST BIT2 
304 17 LOAD AND READ BACK ENABLE 1.D. BIT3 
308 710 TEST 1.D. BIT (BIT yf CLEARED 
318 111 TEST 1.0. BIT (BIT 12) SET 
328 T12 LOAD AND READ BACK ERROR FLAG or? 
332 113 TEST INIT CLEARS BITS 2-6,8-11, 
342 114 TEST INIT CLEARS ERROR FLAG 
349 T15 TEST DONE FLAG SETS AND Pines CLEARS ON END OF CONV. 
360 T16 TEST INIT CLEARS DONE FLAG 
370 T17 TEST A/D DONE FLAG CLEARS WHEN READ CONVERTED VALUE 
377 T20 TEST ALL ‘O'S RESULTS USING MAINT. ADTST. BIT 
388 T21 TEST ALL '1°S RESULT USING MAINT. ADTST. BIT 
4u0 T22 GENERATE INTERRUPT WHEN DONE FLAG SETS AFTER CONVERSION 
422 T23 TEST INTERRUPT OCCURS WHEN ERROR AND I.E.€. IS SET 
435 T24 TEST ERROR FLAG SETS IF 2ND CONVERSION ENDS BEFORE READING BUFFER 
448 T25 TEST ERROR FLAG SETS IF START 2ND CONV. BEFORE DONE FLAG SETS 
475 WRAPAROUND TEST SECTION 
477 T26 TEST CHO GROUND 
486 T27 TEST CH1 +4.5 VOLT 
494 T30 TEST CH2 -4.5 VOLT 
501 131 TEST GROUND ON CHANNELS 4 - 17 
513 132 TEST VERNIER OFFSET DAC ON CHO 
526 133 OFFSET ON CHO 
541 134 TEST RAMP RANGE, CH3 
569 135 NOISE TEST, 1 EDGE 
597 136 INTERCHANNEL SETTLING TEST, 1 EDGE 
618 i37 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST 
714 PRINT VALUES ROUTINE 
749 LOGIC TEST SECTION 
758 AUTO TES* 
774 WRAPAROUN’ TEST 
783 DETERMINE 1* MORE ADV11°S TO BE TESTED 
1366 END OF PASS POUTINE 
1368 ASCII MESSAGE: 
1463 TTY INPUT ROUT!NE 
1465 READ AN OCTAL NIMBER FROM THE TTY 


SEQ 0010 


MAINDEC-11-CVADA-C ——s- MACY11 30G(1063' 29-SEP-80 10:31 
CVADAC.P11 29-SEP-80 09:34 TABLE OF CONTENTS 

1467 SCOPE HANDLER ROUTINE 

1468 ERROR HANDLER ROUTINE 

1469 ERROR MESSAGE TYPEOUT ROU INE 

1471 TYPE ROUTINE 

1472 APT COMMUNICATIONS ROUTINE 

1474 BINARY TO OCTAL (ASCII) AND TYPE 

1475 BINARY TO ASCII AND TYPE RDUTINE 

1477 TRAP DECODER 


TRAP TABLE 


SEQ 0011 
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001100 


000011 


177776 


177774 


177570 


000000 


000006 
000007 


000000 


000340 


100009 
040000 
020000 


ee eee ese ee es ae ae ae ae ee es es ae we ee ee we ew a ae ewe ew ea we we ee we we ww Nw Sew wee we Yew es et 
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™~ 
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YSMAC.C3 
-CVADA-C 


DEVELOPED USING SY 
TITLE MAINDEC-11- 
;*COPYRIGHT (C) 1980 
:*DIGITAL EQUIPMENT CORP. 
geTATHARS MASS. 01754 
!SPROGRAN BY G. STEVENS MOD. R.SHOOP 


ATHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


*SBTTL BASIC DEFINITIONS 
a a OF THE STACK POINTER *** 1100 *** 


STACK= 
;;BASIC DEFINITION OF ERROR CALL 


-EQUIV EMT,ERROR 
-FQUIV I10T,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


ee DEFINITIONS 


G 


T= ;;CODE FOR gery TAS 
LF= 12 ;;CODE FOR LINE FEED 
CR= 1 ;;CODE FOR CARRIAGE RETURN 
CRLF= 200 ;;CODE FOR CARRIAGE RETURN- LINE FEED 
PS= 177776 ;;PROCESSOR STATUS WORD 


7;STACK LIMIT REGISTER 

;;PROGRAM INTERRUPT REQUEST REGISTER 
; HARDWARE SWITCH REGISTER 

DDISP= 177570 3 ;HARDWARE DISPLAY REGISTER 


Nea eatin REGISTER fopkae Gears 


RO= 7;GENERAL REGISTER 
R1= %1 + ENERAL REGISTER 
P2= x2 3;;GENERAL REGISTER 
R3= %3 3;GENERAL REGISTER 
R4= %4 3;GENERAL REGISTER 
R5= x5 3;GENERAL REGISTER 
R6= %6 3;GENERAL REGISTER 
R7= %7 :;GENERAL REGISTER 
SP= %6 3;STACK POINTER 
PC= %7 : PROGRAM COUNTER 
s*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ss RITY LEVEL 0 
PR1= 40 s;PRIORITY LEVEL 1 
PR2= 100 > ;PRIORITY LEVEL 2 
PR3= 140 s7PRIORITY LEVEL 3 
PR4= 200 s PRIORITY LEVEL. 4 
PR5= 240 : PRIORITY LEVEL 5 
PR6= 300 : PRIORITY LEVEL 6 
PR7= 340 > ;PRIORITY LEVEL 7 
:*'SWITCH REGISTER’ SWITCH DEFINITIONS 
Sw15= 100000 
SWi4= 40000 


SW13= 20000 


SEQ 0012 


; aes OR N 
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CVADAC.P11 29-SEP-80 09:34 BASIC DEFINITIONS SEQ 0013 

a) 010000 Swi2= 10000 
(1) 004000 SWil= 4000 
(1) “* 902000 SW10= 2000 
(1), 001000 2 SwO9= 1000 

DT. 900400 SwO8= 400 
1) - 0200 *. SwO7= 200 
q) 000100 Sw06= 100 
() 000040 SwOS= 40 
() « 000020 SwO4= 20 
(\) 000010 SwO3= 10 
a) 000004 SWO2= 
(1) 000002 SWO1= 2 
Q) 000001 SwOO= 1 
(1) EQUIY Sw09,SW9 
() EQUIV $WOB,SW8 
(1) EQUIV SWO7,SW7 
Q) EQUIV $W06,SW6 
(1) EQUIV SWO5,SW5 
(1) EQUIV SWO4,SW4 
(1) EQUIV SWO3,SW3 
(1) “EQUIV SwWO2,SW2 
a) “EQUIV $WO1,SW1 
a) EQUIV $w00,SWO 
(1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 100000 
(1) 040000 BIT14=+ 40000 
(1) 020000 BIT13= 20000 
(1) 010000 BIT12= 10000 
(1) 004000 BIT11= 4000 
CQ) 002000 BIT10= 2000 
1) 001000 BITO9= 1000 
a) 000400 BITOB= 400 
(1) 000200 BITO7= 200 
(1) 000100 BITO6= 100 
(1) 000040 BITOS= 40 
(1) 000020 BITO4= 20 
(1) 000010 BITO3= 10 
(1) 000004 BITO2= 4 
(1) 000002 BITO1= 2 
(1) 000001 BITOO= 1 
(1) -EQU'V BITO9.BIT9 
(1) EQUIV 81T08,B1T8 
(1) EQUIV BITO7,BIT7 
(1) EQUIV BIT06,BIT6 tg 
(1) EQUIV BITOS,BITS se ye 
(1) EQUIV BITO4,BIT4 
(1) EQUIV ®ITO3,BIT3 
a) EQUIV B1T02,B1T2 a 
1) EQUIV BITO1,BIT1 
) EQUIV BITOO,BITO 
(1) 
(1) :*BASIC "'CPU'' TRAP VECTOR ADDRESSES 
(1) 000004 ERRVEC= 4 TIME OUT AND OTHER ERRORS 
1) 000010 RESVEC= 10 S PRESERVED AND ILLEGAL INSTRUCTIONS 
(1) 000014 TBITVEC=14 eT BIT 


MAiNDEC-11-CVADA-C 


MACY11 306(1063) 


CVADAC.P11 29-SEP-80 09:34 


(1) 000014 
(1) 000014 
MW) 000020 
; «a 000024 
/ 4) 000030 
| 6a) 000034 
ee ih 000060 
| 000064 
(1) 000240 

23 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 
24 170400 
25 100400 
26 000200 

27 
28 000109 
29 000100 000104 

30 

31 

(1) 
(1) 000000 

(1) 

(1) 

(1) 
(1) 000174 
(1) 000174 000000 
CM) 000176 000000 
(1) 000200 000137 
32 000204 000137 
33 000210 000137 


000200 000002 


001644 
002262 
001652 


B 
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BASIC DEFINITIONS 


TRIVEC= 14 ;; TRACE TRA 
BPTVEC= 14 tS BREAKPOINT TRAP (BPT) 
1OTVEC= 20 3; INPUT/OUTPUT TRAP (IOT) **SCOPE** 
PWRVEL= 24 ;;POWER FAIL 
EMTVEC= 30 : 3 FUL ATOR TRAP (EMT) **ERROR*® 
TRAPVEC=34 73 {'TRAP’’ TRAP 
TKVEC= 60 73 TTY KEYBOARD i th 
TPVEC= 64 4p PRINTER VECTOR 
PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
»SBTTL OPERATIONAL SWITCH SETTINGS 
* SWITCH USE 
GF ee ED DD OD 
* 15 HALT ON ERROR 
. LOOP ON TEST 


4 

3 INHIBIT ERROR TYPEOUTS 

2 “HALT FOR VT55 DISPLAY 

1 INHIBIT ITERATIONS 

0 BELL ON ERROR 

9 LOOP ON ERROR 

: LOOP ON TEST IN SWR<7:0> 
4 


-=100 
-WORD 104,200,2 
-SBTTL TRAP CATCHER 


.=0 
3*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.+2,HALT"’ 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
paneer i CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


=1 
DISPREG: “WORD 0 ;;SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 7: SOFTWARE SWITCH REGISTER 
~SBTTL —o ADDRESS(ES) 
a#BEC.% >; JUMP *: STARTING ADDRESS OF PROGRAM 
IMP a#BEGe RESTART ADDRESS 


JMP a#BEGIN2 START ADDRESS FOR OPTION TEST AREA 


SEQ 0014 


r 
| 


| 
| 
| 
| 
| 
| 


¢ 
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CVADAC.P11 29-SEP-80 09:34 ACT11 HOOKS SEQ 0015 


33 SBTTL ACT11 HOOKS 
(2 PP RRA RAR R EAA EAA RAAT TERA A ETE H EAA ERE REAR A EAE R AREER EERE EES 
( “HOOKS REQUIRED BY ACT11 
( 000214 $SVPC=. SSAVE PC 
( 000046 eri 
(1) 000046 012022 SENDAD +:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1) 000052 000000 "woRD =O ::2)SET LOC. 52 TO ZERO 
( 000214 " =$SVPC :t RESTORE P 
001000 


-=1000 
-SBTTL APT PARAMETER BLOCK 


RARER EERE ETE RE EEA A AEE A RARER ERE EAHA ATES 


SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


RRA REA EERE AEE AAA AAA AEA AAAEARAARAAEREATHAEEEE 


001000 - $X=. essay CURRENT LOCATION 

000024 .=24 SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 ;FOR APT START UP 

000044 .=4  TPOINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHDR POINT TO APT HEADER BLOCK 

001000 -=.$X ;;RESET LOCATION COUNTER 


TTT I Titi iti ititt titi ti titi titi itr, 
: SETUP APT PARAMETER BLOCK AS DEFINED IN se APT=PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 


et td a “a a L) ot ot 2 = ef) SM WW OO ew 
ee at |? a it tt 


ee te et a a ee te a a ee 


001000 SAPTHD: 

001000 000000 $HIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001002 001174 $MBADR: .WORD $MAIL [ADDRESS OF APT MAILBOX (BITS 0-15) 

001004 000454 $TSTM: .WORD 300. ;;RUN TIM OF LONGEST TEST 

001006 000074 SPASTM: .WORD 60. ;RUN TIME IN SECS. OF 1ST PASS ~ 1 UNIT (QUICK VERIFY) 

001010 000454 SUNITM: .WORD 300. sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
001012 000031 . WORD SETEND-SMAIL/2 7;LENGTH MAILBOX~E TABLE (WORDS) 


~ 


MAINDEC~11-CVADA-C 


CVADAC.P11 


Ww 
co 


0 
0 


* 
ek ek ak tk at ot ot ot tt SS ef 


ww eS SS SB Se Se SO Se we eS Se wre ve www rm eee we eeeeeeeyeeeeeeeeeeeaaeeeeeeeeeeeeerr™ 
a 
— 
~m 


POMOPEPOPOPO NINO PO WIPONO NO 2 2? OOO OO? Os es ee 


a 
ee ee ae a ee ae a ee eee EPP PR PR PRP PR AR RRP RP PPP PLP OL ee my my Om 


FOCUS NOO 


o 
ab at 
= 
~m 


So 
oO 
= 
= 
ea 
oO 


SSS88S8Ssssss 
ee ee ee eed aed aed od od 
FRSVSAES 


NNN 
Nmo 


1 
001210 


001100 
000000 
0 


000000 
000000 


MACY11 306(1063) 
29-SEP-80 09:34 


000377 


29-SEP-80 
COMMON TAGS 


10:31 
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-SBTTL COMMON TAGS 


PARRA ARR eRe eRe ee Eee Te Tee TTT Tee ete ARR eee RET Te AT TTT eee 
s*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


SCMTAG: 


STSTNM: . 
SERFLG: . 


SICNT: 


SLPADR: . 


SLPERR: 
SERTTL: 
SITEMB: 
SERMAX: 
SERRPC: 
SGDADR: 
SBDADR: 
SGDDAT: 
SBDDAT: 


$LF: 


-=1100 


DOOCCCCCO0O—-COOCOOCoOoOoe 


=A) 
ow 
—-=£ 
nw 
wv 


<207><377><377> 
/?/ 


<15> 
<12> 


‘ SEQ 0016 


;;START OF COMMON TAGS 


;;CONTAINS THE TEST NUMBER 

>; CONTAINS ERROR FLAG 

:: CONTAINS SUBTEST ITERATION COUNT 
>: CONTAINS SCOPE LOOP ADDRESS 

:: CONTAINS SCOPE RETURN FOR ERRORS 
>: CONTAINS TOTAL ERRORS DETECTED 
:;CONTAINS ITEM CONTROL BYTE 

: CONTAINS MAX. ERRORS PER TEST 

: CONTAINS PC OF LAST ERROR INSTRUCTION 
: CONTAINS ADDRESS OF ‘GOOD’ DATA 
::;CONTAINS ADDRESS OF ‘BAD' DATA 
:;CONTAINS ‘GOOD’ DATA 

;: CONTAINS ‘BAD’ DATA 

: ;RESERVED--NOT TO BE USED 


;;AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 


: ADDRESS OF SWITCH REGISTER 

: ;ADDRESS OF DISPLAY REGISTER 

:;TTY KBD STATUS 

7; TTY KBD BUFFER 

>; TTY PRINTER STATUS REG. ADDRESS 

::TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 

:: CONTAINS # OF FILLER CHARACTERS REQUIRED 
s; INSERT FILL CHARS. AFTER A “‘LINE FEED" 
::""TERMINAL AVAILABLE’ FLAG (BIT<07>=0=YES) 
::MAX. NUMBER OF ITERATIONS 

: ;ESCAPE ON ERROR ADDRESS 

;;CODE FOR BELL 

: ;QUESTION MARK 

3; CARRIAGE RETURN 

3;LINE FEED 


RARER AAA AAA AAA AAT AAA AAAAAAAAAAEARAAARAAAAAAAARERAAAAA EAE 


*SBTTL APT MAILBOX-ETABLE 


pPeReeeeeeeee eee eeee eee e tere teeter teetaeeereeneetaneaeeereeeeeees 


SUNIT: 


S$MSGAD: . 


>; APT MAILBOX 


AMSGTY 


;;MESSAGE TYPE CODE 


AFATAL ;;FATAL ERROR NUMBER 


AMSGAD 


;;1/0 UNIT NUMBER 
>; MESSAGE ADDRESS 


r 


E 
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‘CVADAC.P11 —- 29-SEP-80 09:34 T MAILBOX-E TABLE SEQ 0017 
(2) 001212 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
| (2) 001214 $ETABLE: APT ENVIRONMENT TABLE 
(2) 001214 000 SENV: BYTE «= AENV, =; ;ENVIRONMENT BYTE 
/ (2) 001215 000 $ENVM: .BYTE AENVM ;;ENVIRONMENT MODE BITS 
(2) 001216 000000 $SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001220 000000 SUSWR: WORD AUSWR  ; ; USER SWITCHES 
| (2) 001222 000000 SCPUOP: .WORD ACPUOP CPU TYPE, OPTIONS, 
;  @) ;* BITS 15-11=CPU T 
(2) :* 11/04=01, 4/05 02,11/20203,11/40=04,11/45=05 
(2) i» 11/70=06 ,PDQ=07,0= 
(2) :* BIT 10=REAL TIME CLOCK 
(2) :* BIT 9=FLOATING POINT PROCESSOR 
(2) : BIT 8=MEMORY MANAGEMENT 
(2) 001224 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001225 000 $MTYP1: .BYTE AMTYP1 ::MEM. TYPE,BLKA1 
(2) i* MEM.TYPE BYTE <= (HIGH BYTE) 
(2) ;* 900 NSEC CORE=001 
(2) ;* 300 NSEC BIPOLAR=002 
(2) :* 500 NSEC MOS= 003 
(2) 001226 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA 
(2) ;* MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “'TYPE’’ ABOVE 
(2) 001230 000 $MAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001231 000 $MTYP2: .BYTE AMTYP2 ::MEM.TYPE,BLKA2 
(2) 001232 000000 $MADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS, BLK#2 
(2) 001234 000 SMAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS,M.S.BYT 
(2) 001235 000 $MTYP3: .BYTE AMTYPS ::MEM.TYPE,BLK#3 
(2) 001236 000000 $MADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS ,BLKA3 
(2) 001240 000 SMAMS4: .BYTE AMAMS4 HIGH ADDRESS .M.S.BYTE 
(2) 001241 000 $MTYP4: .BYTE AMTYP4 ::MEM.TYPE,BLKAG 
(2) 001242 000000 $MADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS, BLKA4 
(2) 001244 100400 SVECT1: .WORD AVECT!. ;; INTERRUPT VECTOR#1,BUS PRIORITYA1 
(2) 001246 000000 $VECT2: :WORD AVECT2 :;INTERRUPT VECTOR#2BUS PRIORITY#2 
(2) 001250 170400 $BASE: .WORD ABASE  ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001252 000000 $DEVM: .WORD ADEVM ;;DEVICE MAP 
(2) 001254 000000 $CDW1: .WORD ACDW1 ::CONTROLLER DESCRIPTION WORDA1 
(2) 001256 | SETEND: 
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-SBTTL ERROR POINTER TABLE 


*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND | 


;1TEM 


;1TEM 


;1TEM 


;*NOTE1: 


;*NOTE2: 


N 
s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE he PERTINENT. 
IF S$ITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

;;PCINTS TO THE DATA FORMAT 


;STATUS REG. ERROR 
sERRPC STREG EXPECTED ACTUAL 
;SERRPC, STREG, $GDDAT, $BDDAT 


FAILED TO INTERRUPT 
;ERRPC STREG ACTUAL 
;SERRPC, STREG, S$BDDAT 


UNEXPECTED INTERRUPT 
s;ERRPC STREG 
s;SERRPC, STREG 


;ERROR ON A/D CHANNEL 
;ERRPC STREG CHAN NOMINAL TOL ACTUAL 
;SERRPC,STREG, CHANL ,SGDDAT , SPREAD , SBDDAT 


SEQ 0018 
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PAGE 3 
‘CVADAC.P11 29-SEP-80 09:34 MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS SEQ 0019 
76 .SBTTL MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS 
77. 001316 170400 STREG: ABASE ADDRESS OF STATUS REGISTER 
78 001320 170401 ADST1: ABASE+1 ‘UPPER BYTE OF STATUS REG. 
79 001322 170402 ADBUFF: ABASE+2 ‘ADDRESS OF A/D BUFFER 
| 80 001324 100400 VECTOR: AVECTI ‘VECTOR ADDRESS 
81 001326 000200 BASEBR: APRIOR ‘INTERRUPT PRIORITY LEVEL 
| 82 001330 100402 VECTR1: AVECT1+2 
83 001332 100404 VECTR2: AVECT1+4 sERROR VECTOR ADDRESS 
84 001334 100406 VECTR3: AVECT1+6 
85 001336 000004 VADR: 4 s INCREMENT FOR BUS ADDRESS 
86 001340 000010 VVCT: 10 ‘INCREMENT FOR VECTOR ADDRESS 
87 001342 000000 BASECH: 0 “BASE CHANNEL 
88 001344 000060 KBVECT: 60 
89 001346 000000 WIDE 0 :NO. OF WIDE STATES 
90 001350 000000 NARROW: 0 =NO. OF NARROW STATES 
91 001352 000000 FIRST: 0 
92 001354 000000 SKIPST: 0 sNO. OF SKIPPED STATES 
93 001356 000000 TEMP: 0 :WORK AREA 
94 001360 000000 CH1 0 “FIRST CHANNEL 
95 001362 000000 CH2 0 =SECOND CHANNEL 
96 001364 000000 NBEXT 0 sNO. OF ADVI1'S TO BE TESTED 
97 001366 000000 NMBEXT: 0 :NO. OF ADV11'S TO BE TESTED 
98 001370 000000 DUMMY: 0 ‘DUMMY CHANNEL 
99 001372 000000 CHANL: 0 :CHANNEL VALUE 
100 001374 000000 TADDR: 0 “TEST ADDRESS 
101 001376 000000 RNA 0 * RANDOM 
102 001400 000000 RNB 0 : NUMBER 
103 001402 000000 RNC 0 : VALUES 
104 001404 000000 RMS 0 =RMS NOISE VALUE 
105 001406 000000 PEAK 0 =PEAK NOISE VALUE 
106 001410 000000 0 =VT55 FLAG 
107 001412 000000 SPREAD: 0 ab elle FROM THE NOMINAL 
108 001414 000000 DAC: 0 *SAR VALUE 
109 001416 000000 DELAY: 0 = TIME VDELAY COUNTER 
110 001420 000000 0 ‘EDGE VALUE 
111 001422 000000 BITPNT: 0 
112 001424 000000 MIN 0 :MIN VALUE 
113 001426 00000 WETEST: 0 “OPTION TEST AREA FLAG 
114 001430 000000 MA 0 *MAX VALUE 
115 001432 000000 PERCNT: 0 =PERCENT FOR SAR ROUTINE 
116 001434 000000 Ou 0 
117. 001436 000000 GUNITS: 0 
118 001440 000001 TSTBIT: 1 
120 001442 UNE XP : 
(1) 001442 012737 001456 001162 MOV #1$,SESCAPE s ESCAPE TO 1$ ON ERROR 
121 001450 005237 001103 INC SERFLG 
122 001454 104003 ERROR 3 
123 001456 005037 001162 1$: CLR SESCAPE sRETURN ESCAPE TO NORMAL 
124 001462 000002 RT] “UNEXPECTED INTERRUPT 
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CVADAC.P11 29-SEP-80 09:34 CONTROL A AND C DECODERS SEQ 0020 
126 ~SBTITL sa ee A AND C DECODERS 
127 001464 010046 ISERV: MOV RO,-(SP) sSAVE RO 
128 001466 017700 177454 MOV astKe RO sGET CHARACTER 
129 001472 042700 177600 BIC #177600,R0 
130 001476 120027 000003 CMPBséRO, #3 S18 IT *C? 
131 001502 001010 BNE 1$ 
132 001504 104401 012114 TYPE /CMSG ;ECHO CHARACTER 
133 001510 012706 001100 MOV #STACK,SP 
134 001514 004737 011356 JSR PC,RST sRESET & SET INTRPT. EN. 
135 001520 000137 002262 MP BEG2 
136 001524 120027 000001 1$: CMPB ss RO, #1 s1S IT *A? 
137. 001530 001010 BNE 2$ 
138 001532 104401 012107 TYPE AMSG ;ECHO CHARACTER 
139 001536 012706 001100 MOV #STACK,SP 
140 001542 004737 011356 JSR PC,RST :RESET & SET INTRPT. EN. 
141 001546 000177 177622 JMP @TADDR ;RETURN TO TEST 
142 001552 120027 000007 2$: CMPB ss RO, #7 ‘I$ IT *G? 
143 001556 001027 BNE NONE 
144 001560 023727 001140 177570 CMP SWR, #177570 :HARDWARE SWREG? 
145 001566 001423 BEQ NONE 
146 001570 104401 012121 TYPE »GMSG sECHO CHARACTER 
147 001574 017746 177340 MOV aSwR,-(SP) ;;SAVE aSWR FOR TYPEOUT 
(1) 3s; TYPE SWREG 
(1) 001600 104403 TYPOS 3:G0 TYPE--OCTAL ASCII 
(1) 001602 006 .BYTE 6 =: TYPE 6 DIGITS 
(1) 001603 001 -BYTE 1 3s; TYPE LEADING ZEROS 
148 001604 104401 012301 TYPE » SLASH 
149 001610 104410 RDOCT :READ NEW VALUE 
150 001612 012677 177322 MOV (SP)+,aSWR ;LOAD NEW SWREG VALUE 
151 001616 012600 POPRO: MOV (SP) +.RO 
152 001620 022776 000001 000000 RETURN: CMP #) 90(SP) :DOES IT RETURN TO A WAIT? 
153 001626 001002 BNE RET2 NO 
154 001630 062716 000002 RET1: ADD #2, ‘se “BUMP RETURN ADDRESS 
155 001634 000002 RET2: RTI . 
156 001636 104401 012105 NONE: TYPE QUEST TYPE '? 
157 001642 000765 BR POPRO 
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001660 


001662 


001676 
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002042 
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000005 
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001426 
000001 


001100 
001140 
001100 
015262 


002000 


000004 


177777 


002954 
000176 
000174 
000004 


001202 
000200 


001216 


001426 


000020 


001215 
001140 


ev os = -80 10:31 PAGE 5 
INITIAL START-UP,HOUSEKEEPING, AND DIALOGUE 


~SBTTL INITIAL START-UP ,HOUSEKEEPING, AND DIALOGUE 
BEGIN: CLR WFTEST 
BR RBEG 
BEGIN2: MOV #1 ,WFTEST 
RBEG: RESET 


: ESE 
-SBTTL INITIALIZE THE COMMON TAGS 
;;CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV #SCMTAG,RO ;;FIRST LOCATION TO BE CLEARED 
CLR (R6)+ ;;CLEAR MEMORY LOCATION 
CMP #SWR,R6 ;; DONE? 
oe -6 ;;LOOP BACK IF NO 
WSTACK, SP 3;SETUP THE STACK POINTER 


MOV 
cheba A FEW VECTORS 
#$SCOPE ,a#LOTVEC 3 iNe VECTOR FOR SCOPE ROUTINE 
MOV #340 ,a#LOTVEC+2 s:LEVEL 7 
MOV #SERROR ,QWEMTVEC EMT VECTOR FOR ERROR ROUTINE 
MOV #340 ,aWEMTVEC+2 ; LEVEL 7 
MOV #STRAP , a#TRAPVEC STRAP VECTOR FOR TRAP CALLS 
MOV #340 ,a#TRAPVEC+2;LEVEL 7 
MOV SENDCT,SEOPCT  ;;SETUP END-OF-PROGRAM COUNTER 
CLR STIMES ;; INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE ;;CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST 
MOV #.,SLPADR rivets THE LOOP ADDRESS FOR SCOPE 
MOV #., SLPERR ;SETUP THE ERROR LOOP ADDRESS 
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘'=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV Q@#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
MOV #64$,a#ERRVEC  ;;SET UP ERROR VECTOR 
MOV #DSWR, SUR ;;SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 


CMP #-1,aSWR 7;TRY TO REFERENCE HARDWARE SWR 

BNE 66$ ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
7;AND THE HARDWARE SWR IS NOT = -1 

BR 65$ ;;BRANCH IF NO TIMEOUT 


64$: MOV #658, (SP) ;;SET UP FOR TRAP RETURN 
65$: MOV #SWREG ,SWR 


::POINT TO SOFTWARE SWR 
MOV #DISPREG,DISPLAY 
66$: MOV (SP)+,Q#ERRVEC ;;RESTORE ERROR VECTOR 


CLR SPASS ;CLEAR PASS COUNT 
BITB #APTSIZE,SENVM SITEST USER SIZE UNDER APT 
BEQ 67% ;YES,USE NON-APT SWITCH 


‘78 MOV #SSWREG, SWR ; NO ,USE APT SWITCH REGISTER 


SEQ 0021 


| Tat we | J 
MAINDEC~11=CVADA~C MACY11 30G(1063) 29-SEP-80 10:31, PAGE 6 


CVADAC.P11 = 29-SEP-80 09:34 NITIALIZE THE COMMON TAGS SEQ 0022 
166 §=002116 005037 001410 CLR FLAG sCLEAR VT55 FLAG 
167) «002122 «005737 000042 TST ae42 :1S IT CHAINED? 
| 168 002126 001033 BNE REST1 
169 SOTTL DETERMINE IF v155 TYPE TERMINAL IS PRESENT 
| 170 002130 042777 000100 177006 BIC #100,a$TKS 

171 002136 104401 014002 TYPE CO sTYPE ASCIZ STRING 

172 002142 004737 002432 JSR PC, VTFLG :GET A CHARACTER 

173 002146 020027 000033 CMP RO, #33 

174 002152 001017 BNE NOVTSS ;NO VT55 PRESENT 

175 002154 004737 002432 JSR PC,VTFLG :GET A CHARACTER 

176 002160 020027 000057 CMP RO, #57 

177 002164 001012 BNE NOVTSS :NO VT55 PRESENT 

178 002166 004737 002432 JSR PC, VTFLG “GET A CHARACTER 

179 002172 020027 000103 CMP RO.#103 

180 002176 001403 BEQ vT55 :VT55 IS PRESENT 

181 002200 020027 000105 CMP RO, #105 

182 002204 001002 BNE NOVT55 

183 002206 005237 001410 vT55: INC FLAG 


-—-——-—— 
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002430 


104401 


000731 


014145 
006344 


001100 
000042 


006064 
001426 


013617 
000100 
002334 
000040 
000101 


006122 
000103 


005420 
000120 


005674 
000114 


006064 
000127 


006204 
012105 


001376 
001400 
001402 


176620 
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DIALOGUE TO DETERMINE WHICH TEST TO RUN 
DIALOGUE TO DETERMINE WHICH TEST TO RUN 


~SBTTL 
NOVT55: TYPE »HEAD1 


REST1: 


BEG2: 


RESET 

JSR PC, Sirens ; INITIALIZE ADDRESSES 
MOV KBVECT,RO 

MOV #ISERV, (RO) + 


;RANDOM NO, VARIABLES 


MOV #127623,RNC 

MOV #STACK, SP ;RESET STACK POINTER INCASE RESTARTED 
RESET RESTART ADDRESS 

TST aHde 31S IT CHAINED? 

BEQ 1$ 

JMP BEGL GO TO LOGIC TESTS 

TST Aes, ; TEST FOR OPTION TEST 


BNE ; 

TYPE »MSG71 

RDLIN 

BIS #100,a$TKS 

CLR - (SP) sCLEAR PSW 

MOV #1$,-(SP) 

RTI 

MOV (SP)+,RO ;READ ANSWER 

BICB #40, (RO) 

CMPB (RO) ,#'A sIS IT A? 

BNE 23 ;;NO, TRY C 

JMP BEGINA :GO TO AUTO TEST 

CMPB (RO) ,#'C <tS 2 GF 

BNE 3$ 3;NO, TRY P 

JMP BEGINC ;G0 TO CALIBRATION TEST 
CMPB (RO) ,#'P si6 it ?? 

BNE 4$ szNO, TRY L 

JMP BEGINP :GO TO DISPLAY CONVERSIONS TEST 
CMPB thos #'L 21S oF &? 

BNE 5$ :rNO, TRY W 

JMP BEGL :G0 TO LOGIC TESTS 
CMPB CRO). W sIS IT W? 

BNE 6$ sNO,TRY AGAIN 

JMP BEGINW :GO TO WRAPAROUND TEST 
TYPE QUEST 

BR TRYAG sWAIT FOR CHARACTER 


SEQ 0023 


‘MAINDEC-11-CVADA-C MACY11 306(1063) 29-SEP-80 10:31 PAGE 8 
icvA ADAC.P11 29-SEP-80 09:34 DIALOGUE TO DETERMINE WHICH TEST TO RUN SEQ 0024 
228 002432 005000 VTFLG: CLR RO TEST FOR PRESENCE 
229 002434 105777 176504 1$: TSTB = aSTKS ‘OF V755 
230 002440 100404 BM! 2$ ::VT55 RESPONDS WITH <33><57>[<103> OR <105>] 
231 002442 005300 DEC RO 
232 002444 001373 BNE 1 
233 002446 005726 TST (SP)+ POP A WORD OFF STACK 
234 002450 000660 BR NOVTSS ‘sNO VT55 PRESENT 
235 002452 017700 176470 2$: MOV a$TKB,RO 
236 002456 042700 177600 BIC #177660, RO sTEST VT55 CODE 
237 002462 000207 RTS PC 
239 002464 005037 001202 TESTAD: CLR SPASS sCLEAR PASS COUNT 
240 002470 305037 001436 CLR GUNITS “CLEAR UNIT ERROR BITS 
241 002474 012737 000001 001440 MOV #1,TSTBIT s INITIALIZE MODULE ERROR TEST BIT 
242 002502 012737 000001 001356 MOV #1. TEMP “SET UP FOR ONLY ONE A/D 
248 002510 105737 001215 TSTB = SENVM ‘TESTING ONLY ONE A/D? 
244 002514 100411 BMI 3$ YES 
245 002516 012737 000004 001356 MOV #4, TEMP :SET UP MAX NO OF A/D'S 
246 002524 005737 001426 TST WFTEST [1S IT IN OPTION TEST 
247 002530 001403 BEQ 3$ ‘NOT IN OPTION TEST 
248 002532 012737 000020 001356 MOV #16., TEMP ‘SET UP OPTION MAX NO OF A/D'S 
249 002540 013737 001250 001126 38: MOV SBASE ,SBDDAT : SETUP TO TEST FOR ADV11'S 
250 002546 013746 000004 MOV aWERRVEC,-(SP) :SAVE ERRVEC 
251 002552 012737 002624 000004 MOV #2$,ERRVEC “SET UP FOR TIME OUT ERROR 
252 002560 005037 001364 CLR NBEXT ‘CLEAR ADV11 COUNTER 
253 002564 005777 176336 1$: TST as$BODAT sADDRESS ADV11 
254 002570 005237 001364 INC NBEXT s INCREMENT ADV11 COUNTER 
255 002574 053737 001440 001436 BIS TSTBIT,GUNITS :SET A/D BIT UNDER TEST 
256 002602 006337 001440 ASL TSTBIT - :SET TEST BIT FOR NEXT UNIT 
257 002606 005337 001356 DEC TEMP =REACHED MAX? 
258 002612 001405 BEQ 4$ : REACHED MAX NO OF A/D'S 
259 002614 063737 001336 001126 ADD VADR, $BDDAI :GET NEXT ADV11 
200 002622 000760 BR 1$ :;TRY NEXT ADV11 
261 002624 022626 2$: CMP (SP)+,(SP)+ ;POP 2 WORDS OFF STACK 
262 002626 4$: 
(1) 002626 013746 001364 MOV NBEXT,-(SP) 3; SAVE NBEXT FOR TYPEOUT 
(1) :; TYPE NUMBER OF ADV11'S 
(1) 002632 104403 TYPOS 3:;G0 TYPE--OCTAL ASCII 
(1) 002634 002 .BYTE 2 =: TYPE 2 DIGIT(S) 
(1) 002635 000 “BYTE 0 >: SUPPRESS LEADING ZEROS 
263 002636 104401 013157 TYPE ,MSG50 
264 002642 005337 001364 . DEC NBEXT :ADJUST ADV11 COUNT 
265 002646 013737 001364 001366 MOV NBEXT,NMBEXT | :KEEP COUNT OF NUMBER 
266 002654 012637 000004 MOV (SP)+,ERRVEC RESTORE ERRVEC 
267 002660 012737 000001 001440 MOV #1,TSTBIT s INITIALIZE MODULE ERROR TEST BIT 


268 002666 000207 RTS PC 


--- 
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002670 


002670 


002730 


002732 
002734 
002742 
002744 


002746 
002750 
002756 
002764 
002766 
002770 


003002 


003004 


003016 


003020 


003032 


001370 


000004 
012737 
104412 
104001 


000004 
012777 
012737 
104412 
104001 


000004 
012737 
104412 
104001 


000004 
012737 
104412 
104001 


000004 


104001 
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002670 


040000 


001442 


000100 


000040 


000020 


000004 


001124 
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DIALOGUE TO DETERMINE WHICH TEST TO RUN 


SEQ 0025 
BEGINL: 
PETTITT iri ii itil tii tilt rrr rrr rrr rrr rere e, 
s*TEST 1 FLOAT A ONE THRU MULTIPLEXER BITS 
UIST Iti iti iter i tile iti tiie tigi ii titi iti titre, 
TST1: MOV #TST1,$LPADR 
MOV #TST1,$LPERR 
MOV #B1T8,SGDDAT ;LOAD FIRST BIT 
2$: CHKIT 
ERROR 1 sFAILED TO ties + READ BIT 
1$: ASL SGDDAT :GET NEXT BIT 
CMP SGDDAT ,#BIT12 FINISHED? 
BNE 2$ :iNO,GO TO NEXT TEST 
ete T iit iit iit itt ii tii iii tii iii iii rrr rrr rer reer 
TEST 2 LOAD AND READ BACK ERROR I.E. BIT14 
PETTITT TI TITTLE TT TTT Thirties 
1812: SCOPE 
MOV #B1T14,$GDDAT 
CHKIT 
ERROR 1 ;FAILED TO LOAD + READ ERROR I.E. 
TITIITITI ILL TILT TTT LTT ITLL iti titi iti iii ti tite e 
SSTEST 3 LOAD AND READ BACK INTERRUPT ENABLE BIT6 
TTT ITETIITITITT TTI TTT ITT T TTT titi Titi ttt ttre 
TST3: SCOPE 
MOV #UNEXP ,AVECTOR ;SETUP FOR UNEXPECTED INTERUPT 
is #B1T6,$GDDAT ;LOAD EXPECTED DATA 
ERROR 1 FAILED TO LOAD + READ INTERRUPT ENABLE 
PRA ARR EERE TERETE TERRE ET EERE Eee eee 
s*TEST 4 LOAD AND READ BACK CLOCK OVERFLOW START ENABLE BITS 
EIT Titi Titi iit titi titi iti tier ittiiiiiiti lift iii iii irri rs 
TST4: SCOPE 
a #B1TS,SGDDAT ;LOAD EXPECTED DATA 
ERROR 1 FAILED TO LOAD + READ CLOCK OVERFLOW START ENAB 


pee eee ee RARE TARA ATA T TATE TAA Te AAA KART AAA ee KARA ATT ATT 
*TEST 5 LOAD AND READ BACK EXTERNAL START ENABLE BIT4 
PITTI ITIT IIIT TITTLE T TTT TT itt Titi titi it iit tier 
TST5: SCOPE 
MOV #B1T4,$GDDAT ;LOAD EXPECTED DATA 


CHKIT 

ERROR 1 sFAILED TO LOAD + READ EXT. START 
WITTITITITTITITIILITI TILL ILI LITT iti iii cite 
ATEST 6 LOAD AND READ BACK MAINT. TST BIT2 


+ Reet eeeeeeeeeeeeeeeeeee eee eeeteeeeeteeeeeeteeeeeeeeeeeeteeeeeet 
TST6: SCOPE 
ands #B112,$GDDAT 

K 


ERROR 1 FAILED TO LOAD + READ BACK MAINT. 


ENABLE 


TST 


votes -11-CVADA-C MACY11 eatbenes” "i -SEP-80 10:31 PAGE 10 
Ps VADAC.P11 29-SEP-80 09:34 LOAD AND READ BACK ENABLE I.D. BIT3 SEQ 0026 
304 pRRA AeA AAARA HATER A Ae Tee eee eee eete Ate eeeetetetkeeet teeter eeees 
(3) eTEST 7 LOAD AND READ BACK ENABLE |.D. BIT3 
(3) PETETITITITITITIVITITTLITETTT TET LITT iit titi tities, 
(2) 003034 000004 TST?: SCOPE 
305 003036 012737 000010 001124 MOV #B1T3,$GDDAT 
306 003044 104412 CHKIT 
307 003046 104001 ERROR 1 sFAILED TO LOAD + READ ENABLE I.D. BIT 
308 PRCA ARERR A RAAT E ATA T ATA EE eee KAKA TREAT Kee TAKE eee ee 
(3) :*TEST 10 TEST 1.0. BIT (BIT 12) CLEARED 
(3) SRR R RARER AEE ATER T TEETER ATTA ETAT TETRA eee 
(2) 003050 000004 TST10: SCOPE 
309 003052 012777 000001 176236 MOV #1,aSTREG sCLEAR I.D. eaitios 
310 003060 105777 176232 1$: TSTB aSTREG sWAIT FOR CONVERS! 
311 003064 100375 BPL 1$ Ph yng abt t IS NOT DONE YET 
312 003066 017737 176230 001126 MOV @ADBUFF ,SBDDAT :READ BUFFER 
313 003074 005037 001124 CLR $SGDDAT CLEAR EXPECTED 
314 003100 032737 010000 001126 BIT #B1T12,$BDDAT “1S 1.D. BIT CLEARED? 
315 003106 001401 BEQ TST11 3;YES - GOTO NEXT TEST 
319 003110 104001 ERROR 1 
318 PRR AAA AAAAAAA AAT HEE E Te eee K kee eee KK etka tee eteeee eee 
(3) SSTEST 11 TEST 1.0. BIT (BIT 12) SET 
(3) UTTTITITITIIT IIIT LITT I TTT T IT titi T tit it trite 
(2) 003112 000004 TST11: SCOPE 
319 003114 012777 000011 176174 MOV + BES estate * ;SET 1.D. ae BIT 
320 (03122 105777 176170 1$: TSTB asTR WAIT FOR CONVERSION 
321 003126 100375 BPL 1$ ;CONVERSION IS NOT DONE YET 
322 003130 017737 176166 001126 MOV @ADBUFF ,SBDDAT “READ BUFFER 
323 003136 012737 010000 001124 MOV WB1T12,$GDDAT LOAD EXPECTED 
324 003144 032737 010000 001126 BIT #B1T12,$BDDAT 71S 1.0. BIT SET? 
325 003152 001001 ; BNE TST12 37YES = GOTO NEXT TEST 
sce 003154 104001 ERROR 1 
d 
328 PRA eA eee ee AAA AAA AT AAA TATA TATE ATE AAA RATATAT ATTRA TERA Ae 
(3) s*TEST 12 LOAD AND READ BACK ERROR FLAG BIT15 
(3) ;eeeeeeeeeeeeeeteeetetetttetrtreeeeeeeeeeeneteeeeeeeneaeererees 
(2) 003156 000004 i112: SCOPE 
329 003160 012737 100000 001124 MOV #B1T15,S$GDDAT ;LOAD EXPECTED DATA 
330 003166 104412 CHKIT 
331 003170 104001 ERROR 1 sFAILED TO LOAD + READ ERROR FLAG 
332 PRA A eee RARE AAA ATTA TATA AAA AeA KATA AAA AAA A TAA AAA A ATTA Te 
(3) :*TEST 13 TEST INIT CLEARS BITS 2-6,8-11,14 
(3) sR RAR eRe eA AAA ARATE A ATTA ATTA TAKA A AAA AAA AAA AeA TA AeA AAA TTA ATE 
(2) 003172 000004 TST13: SCOPE 
(1) 003174 012737 000300 001160 MOV #300, STIMES + ;D0 300 ITERATIONS 
333 003202 005037 901124 CLR SGDDAT LOAD EXPECTED DATA 
334 003206 012777 047574 176102 2$: MOV #47574,aSTREG SET STATUS REGISTER 
335 003214 000005 RESET s INITIALIZE 
336 003216 052777 000100 175720 BIS #100, ,a$TK SET INTRPT. ENABLE 
337 003224 017737 176066 001126 MOV aSTREG, SBDDAT ;READ STATUS REGISTER 
338 003232 001401 BEQ TST14 ;;NEXT TEST 
‘7 003234 104001 ERROR 1 RESET FAILED TO CLEAR AD ST. REG. BITS 
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ICVADAC.P11 29-SEP-80 09:34 TEST INIT CLEARS ERROR FLAG SEQ 0027 
342 SRRRERREREAEE AEE AEE ETHER E EAA A ETRE AR EAE AE AAR AE TRE AEARERERTR AEE 
(3) :ATEST 14 TEST INIT CLEARS ERROR FLAG 
(3) POTTS TTT TTT TTTETT TET TTT TTT TTT IT ETTTITITTTT TTT TT Titi. 
(2) 003236 000004 téT14: SCOPE 
343 003240 012737 000300 001160 MOV #300, $TIMES :D0 300, ITERATIONS 
344 003246 012777 100000 176042 MOV #BIT15 ,aSTREG :SET BIT 15 
345 003254 000005 RESET ‘I SSUE. INIT 
346 003256 052777 000100 175660 BIS #100,a$TKS :SET INTRPT. EN. FOR KEYBOARD 
347 003264 104411 CHECK 
348 003266 104001 ERROR 1 
349 SERRE RARER AERA EEE EEE EERE REE E RARE RAE RARER ERATE ES 
(3) SeTEST 15 TEST DONE FLAG SETS AND BITO CLEARS ON END OF CONV. 
(3) . SERRA RRR AREER ARERR RE EERE AEE REE E EAE AE RARER AREA EER EES 
(2) 003270 700004 TST15: SCOPE 
350 003272 12700 001000 MOV #BIT9,RO :STALL TIME COUNTER 
351 003276 005277 176014 INC aSTREG “START CONVERSION 
352 003302 012737 000200 001124 MOV #BIT7,$GDDAT | :LOAD EXPECTED 
353 003310 005300 1$: DEC RO STALL 
354 003312 001376 BNE 1$ : TIME 
355 003314 042777 100000 175774 BIC #BIT15,aSTREG | :MASK OUT ERROR BIT 
356 003322 104411 CHECK 
357 003324 104001 ERROR 1 ;A/D DONE FLAG FAILED TO SET;BITO FAILED TO CLEAR 


358 003326 017700 175770 MOV @ADBUFF ,RO ;CLEAR DONE FLAG FOR ITERATIONS 


| ESE PT 
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(CVADAC.P11 29-SEP-80 09:34 TEST INIT CLEARS DONE FLAG SEQ 0028 
360 PRAAARARAAAARATEAATH TATE TT eee eee Rete Ke teeKteeAe eee eee erent 
| @) ;*TEST 16 TEST INIT CLEARS DONE FLAG 
| (3) REE EREE ER EER EERE EEE EEE EERE EEREAEEREEHe Eee Reet 
(2) 003332 000004 réT16: SCOPE 
(1) 003334 012737 000300 001160 MOV #300,STIMES ;;D0 300 ITERATIONS 
361 003342 005037 001124 CLR $GDDAT sCLEAR EXPECTED 
362 003346 005277 175744 INC @STREG ;START CONVERSION 
363 003352 105777 175740 2$: TSTB aSTREG 
364 003356 100375 BPL 2$ 
365 003360 000005 RESET 
366 003362 104411 CHECK 
367 003364 104001 ERROR 1 ;DONE FLAG FAILED TO CLEAR 
a4 003366 052777 000100 175550 BIS #100,a$TKS :SET INTRPT. EN. BIT 
370 pPRAARA ARR ERAAAAEA TATE A TAHA TAHT eee Ke eee Atte Ae ete eee eererereenee 
(3) S*TEST 17 TEST A/D DONE FLAG CLEARS WHEN READ CONVERTED VALUE 
(3) PETTITTE ETTLETTA TELL ELLE EE LELALELALLATT Tce c eee cece cere 
(2) 003374 000004 iér17: SCOPE 
371 003376 005277 175714 INC @STREG :SET A/D START CONVERSION BIT 
372 003402 105777 175710 1$: TSTB = ASTREG “WAIT FOR FLAG 
373 003406 100375 BPL 1$ 
374 003410 017700 175706 MOV @ADBUFF RO ;READ CONVERTED VALUE 
375 003414 104411 CHECK 
376 003416 104001 ERROR 1 ;DONE FLAG FAILED TO CLEAR 
377 TTT TTS TPOTTT TTT TUTE TETTTTT TTT TTT TTT TTT T TTL 
(3) SSTEST 20 TEST ALL ‘O'S RESULTS USING MAINT. ADTST. BIT 
(3) POTEET ITTITIE LILLIE ELEETLELELELLAELIE LLL LAc cece 
(2) 003420 000004 18120: SCOPE 
378 003422 005037 001124 CLR SGDDAT ;CLEAR EXPECTED VALUE 
379 003426 005037 001372 : CLR CHANL ;SET CHANL = 0 
380 003432 005037 001412 ' CLR SPREAD :SET SPREAD = 0 
381 003436 012777 000005 175652 MOV #5,aSTREG sCONVERT EVEN CHANNEL WITH MAINT. BIT SET 
382 003444 105777 175646 1$: TSTB @STREG sWAIT FOR DONE 
383 003450 100375 BPL 1$ 
384 003452 017737 175644 001126 MOV @ADBUFF,SBDDAT ;RESULTS TO 3th FOR CHECKING 
385 003460 001401 BEQ TST21 :G0TO NEXT TEST 
a9 003462 104004 ERROR 4 :DID NOT GET ALL 'O*S RSULT WITH MAINT. ADTST 
388 PARA KeAe eA AAee eee A eH eee eee eter rere eee terete teres eteerererede 
(3) s*TEST 21 TEST ALL ‘1°S RESULT USING MAINT. ADTST. BIT 
(3) sARRAAeA AAA eAeH AAT ee eee eee eee eee re Ketter eAetertertereterereese 
(2) 003464 000004 TST21: SCOPE 
389 003466 012737 007777 001124 MOV #7777, SGDDAT sEXPECT ALL ‘'1°S RESULT 
390 003474 012737 000001 001372 MOV +P CHA “es seer CHANL = 1 
391 003502 005037 001412 CLR PREAD SET SPREAD = 0 
392 003506 012777 000405 175602 MOV 3608, aSTREG > CONVERT ODD CHANNEL ‘WITH MAINT. BIT SET 
393 003514 105777 175576 1$: TSTB ast REG WAIT FOR DONE 
394 003520 100375 BPL 1$ 
395 003522 017737 175574 0601126 MOV @ADBUFF ,SBDDAT #RESULTS TO BODAT FOR CHECKING 
396 003530 023737 001124 001126 CMP SGDDAT, SBDDAT SEQU UAL? 
397 003536 001401 BEQ TST22 3;G0TO “NEXT TEST 
398 003540 104004 ERROR 4 :DID NOT GET ALL ‘1°S RESULT WITH MAINT. ADTST 
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003544 012700 


003664 005777 


2) 003670 000004 


012700 


005077 
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PAGE 13 
GENERATE INTERRUPT WHEN DONE FLAG SETS AFTER CONVERSION 


MARS SSSESSLISESALE EEE S EEE CREE EERE REE R ERR R RRR R ARRAS RDS D DSS SO 


SETEST 22 GENERATE INTERRUPT WHEN DONE FLAG SETS AFTER CONVERSION 


RRR REE EEE REET EEE EERE AAAEAAEEAAAATAAEAAAAEEEAEAAEEREEE 


1§122: $¢O PE 
* "ENTERING TEST 22°’ TYPED OUT TO TELL YOU THE NEXT 
:*TEST THAT IS GOING TO BE EXECUTED. IT IS ONLY TYPED ON PASS 0. 
*THERE IS DANGER THAT THE UNIBUS COULD GET ""MHUNG'’ WHILE 
s*EXECUTING TEST ''22"'. 


000022 MOV #22,R0 :GET TEST NO. 
011254 JSR PC bum “PRINT MESSAGE 
CLR “RESET PRIORITY 
003564 NOV re, 2 sp) 
003640 175532 3$: MOV #1$ wie s INTERRUPT 2 ADDRESS 
000200 175530 MOV #206,a =SET UP NEW 
000101 175510 MOV wei tbinito. astaei +e INTERRUPT ENABLE BIT + START CONVERSION 
175504 2$: TSTB aSTREG “WAIT F OR DONE 
BPL 2$ ‘FLAG TO SET 
175476 001126 MOV aSTREG, $BDDAT * READ STATUS REGISTER 
000300 001124 MOV #BIT7'BIT6,$GDDAT ;GOOD DATA 
ERROR sFAILED TO INTERRUPT ON DONE 
011326 JSR PC ,DUMC + TYPE COMPLETED 
BR TST23 ;;BRANCH TO NEXT TEST 
1$ CMP (SP)+,(SP)+ *RESET STACK POINTER 
001442 175454 MOV #UNEXP,@VECTOR ;SET UP FOR UNEXPECTED INTERRUPT 
CLR -(SP) > CLEAR PSW 
003660 ari #4$,-(SP) 
011326 4$: JSR PC ,DUMC s TYPE COMPLETED 
175432 TST @ADBUF F s;CLEAR DONE BIT 
RRR ARR RARER ERE REET E EEA AAA AAA AREER AHE RAR ARES 
:*TEST 23 TEST INTERRUPT OCCURS WHEN ERROR AND I.£.E. IS SET 
Oe tana ea anicent aera cr aia ih iene tt A OH 
TST23: SCOP 
SOP ENTERING TEST 23'' TYPED OUT TO TELL YOU THE NEXT 
“#TEST THAT IS GOING TO BE EXECUTED. IT IS ONLY TYPED ON PASS 0. 
:*THERE IS DANGER THAT THE UNIBUS COULD GET ‘'HUNG'’ WHILE 
S*EXECUTING TEST "23" 
000023 MOV #23,R0 :GET TEST NO. 
011254 JSR PC um “PRINT MESSAGE 
003742 175422 MOV #1 CTR ;SETUP VECTOR ADDRESS 
140000 175400 MOV weitise BIT ,aSTREG :CAUSE AN INIERRUPT 
175374 001126 MOV asTREG, SBDDAT ;BAD T 
140000 001124 1  hiahaeedchitas , SGDDAT ;GOOD DATA 
011326 JSR PC DUMC : TYPE COMPLETED 
1$ CMP (SP)+,(SP)+ ;POP STACK 
011326 JSR PC ,DUMC 
175342 CLR asTREG 


SEQ 0029 
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(2) 003754 


447 004022 


(2) 004026 


457 004104 


459 004106 
460 004112 


| 

443 004014 
444 004016 
445 004020 
446 
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017700 


000004 


001401 
104001 


105777 


000207 


013777 
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000001 
175326 
100200 


000001 
001000 


175274 


100000 


001124 


175204 


175202 
175172 


001124 
175154 
001124 


000002 


175160 
001126 
001126 
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TEST ERROR FLAG SETS IF 2ND CONVERSION ENDS BEFORE READING BUFFER 
jy Sueeeoneennoesreterersestesersooveseaseoeseessesnnresqesoeserse 
T*TEST 24 TEST ERROR FLAG SETS IF 2ND CONVERSION ENDS BEFORE READING BUFFER 
METTITTI TIT IITIIITTELLI LL LLTtLiLiitiitiittiiiiti iti tii 
18124: SCOPE 
MOV #BITO,aSTREG ;START CONVERSION 
1$: Hi Ng @STREG WAIT FOR 
L 
2$: MOV #BITIS'BIT7, one jLone EXPECTED VALUE 
MOV #B1T0,aSTREG : T 2ND CONVERSION 
MOV #B1T9,R0 Malt FOR 2ND 
3$: DEC RO ; CONVERSION TO END 
BNE 3$ 
4$: CHECK 
ERROR 1 ;ERROR FLAG NOT SET WHEN 2ND 
; CONVERT ENDS BEFORE READ BUFFER FROM FIRST 
MOV @ADBUFF ,RO ;CLEAR DONE FLAG 
PECTIC Iti titi t ite tris i titi iii tii itty 
s*TEST 25 TEST ERROR FLAG SETS IF START 2ND CONV. BEFORE DONE FLAG SETS 


EP e Tie Titi titi ti it itis itiiii tii iii iii tii trier rere, 
TST25: SCOPE 

MOV #BIT1S,$GDDAT ;LOAD EXPECTED DATA 

MOV #BITO,aSTREG START CONVERSION 


MOVB #BITO,aSTREG START NEXT CONVERSION 
MOVB #B1TO,aSTREG ONCE AGAIN IN CASE REFRESH INTERVENED 
MOV @STREG, $BDDAT ;READ STATUS REGISTER 
BIC #77777 ,SBDDAT sMASK OUT BIT 15 
CMP $SGDDAT, $BDDAT ;COMPARE RESULTS 
BEQ 1$ ;;BRANCH OVER ERROR 
ERROR 1 ;ERROR FLAG NOT SET WHEN 2ND 
;CONVERT BEGINS BEFORE FIRST DONE 
1$: = —— ;WAIT FOR DONE 
L 
MOV @ADBUFF ,RO ;READ CONVERTED VALUE 
+ aSTREG CLEAR STATUS REGISTER 
RTS PC RETURN TO TEST SECTION 
Ts pel say FOR LOGIC TESTS;; 
TESTIT: MOV SGDDAT,@STREG ;LOAD EXPECTED VALUE 
TEST: MOV aSTREG, SBDDAT ;READ ST. REG. 
CMP SGDDAT,SBDDAT Vi pa "RESULTS 
BNE RETERR ;;ERROR RETU 
ADD #2, (SP) "BUMP NRETURN ADDRESS TO GET AROUND ERROR 
RETERR: RTI 


SEQ 0030 
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004162 


004230 


004232 
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104004 


000004 


011660 


104004 


000004 


001362 
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000026 


011074 
011206 


000010 
011074 


011206 


000010 
011074 


011206 


000010 
000004 
011074 


011206 


004334 
000017 


001160 


001160 


001160 
004334 


004334 
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WRAPAROUND TEST SECTION 


URAP: WRAPAROUND TEST SECTION 
RRR A RATE RATA EEA TE TAA E TERT E TEA TAA e AAA Tee Tete e Tee Tee Tete 
TTEST 26 TEST CHO GROUND 


SERRE AREERE REET E EEE EE EEE REE AEA EAEERAAR EAE EREEEERERAAEAEEEE 
18126: MOV #STN,STSTNM 
MOV #10,$TIMES ::D0 10 ITERATIONS 
MOV #1ST26,$LPERR 
MOV #TST26.$LPADR 


JSR R5,CONVRT :CONVERT 8 TIMES 

JSR RS, COMPAR ;COMPARE RESULTS 

4000 NOMINAL 

v12 : TOLERANCE 

ERROR 4 TERROR ON A/D CHANNEL 
SRR RARE EEE REE EEE EEE EERE REAR REARAEARE AREER ERE RER EEE EE 
:*TEST 27 TEST CH1 #4.5 VOLT 


SERRA ERA EER EEE E EEE EER ERREREERAARRERERKEREAARAR AKER EES 


TS$T27: SCOPE 


MOV #10,STIMES 7;D0 10 ITERATIONS 

JSR R5S,CONVRT ;CONVERT 8 TIMES 

1 CHANNEL 1 

JSR RS, COMPAR ;COMPARE RESULTS 

7344 7 NOMINAL 

V326 ; TOLERANCE 

ERROR 4 ;ERROR ON A/D CHANNEL 


MPBRRBRSRARALASALERSESRRASRRRRRA RARER RRR RRR RRR ARR RRR RRR RRR RRR RDS S| 


LATEST 30 TEST CH2 -4.5 VOLT 


MePRRRRSSELELESREARESSRERESARR RRR RRR RRR RRR RRR RRR RRR RR RRR R RR RR BRE SD | 


18130: SCOPE 


MOV #10, $TIMES :;D0 10 ITERATIONS 

JSR RS, CONVRT :CONVERT 8 TIMES 

2 sCHANNEL 2 

JSR RS, COMPAR =COMPARE RESULTS 

434 NOMINAL 

V326 : TOLERANCE 

ERROR 4 “ERROR ON A/D CHANNEL 
FF AAAAAAAA AAA AAAKAAAAAK TAKARA KeeAKeKeeKeAKeeKKKKeKKeReeKeReeeese 
S*TEST 31 TEST GROUND ON CHANNELS 4 = 17 
SF RAAAARRAAEKEAA AAA AAA ATTRA T AREA EKER ARK RKKRAKAKRAAA AeA ee 
1ST31: SCOPE 

MOV #10, STIMES ::D0 10 ITERATIONS 

MOV #4,2$ :SET UP FIRST CHANNEL 
I$: JSR RS.CONVRT “CONVERT CHANNEL 

JSR RS, COMPAR :TEST RESULTS 

4000 

12 

ERROR 4 

INC 2$ :GET NEXT CHANNEL 

CMP #17,2% ‘DONE ? 


BNE 1$ 32NO 


SEQ 0031 
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CVADAC.P11 29-SEP-80 09:34 132 TEST VERNIER OFFSET DAC ON CHO SEQ 0032 
513 SRR ERE ERATE EATER AK EERE RATATAT KEREE EAH HKeKAe ATA ee 
(3) SSTEST 32 TEST VERNIER OFFSET DAC ON CHO 
(3) 'MABRBBBBAAABSRASAASLEASAESARASESEAASRRARERARRR SER ARE RRR RRR RR RRAR SRS Ef 
(2) 004364 000004 +8132: SCOPE 
(1) 004366 012737 000001 001160 MOV #1,STIMES 7:00 1 ITERATION 
514 004374 005077 174722 CLR @ADBUF F ;SET VERNIER DAC = 0 
515 004400 004537 011074 JSR RS,CONVRT ;CONV. CHO, pEReCt VERNIER DAC 
516 004404 000000 0 
517 004406 013704 001356 MOV TEMP,R4S ;SAVE VALUE IN RG 
518 004412 012777 000377 174702 18: MOV very Q@ADBUF F ;SET VERNIER DAC = 377 
519 004420 004537 011074 JSR R5, CONVRT s CONVERT IT 
520 004424 000000 0 
521 004426 160437 001356 ; SUB R4,TEMP ;TEMP=DIFF. BETWEEN VALUE & PREVIOUS 
522 004432 004537 011206 JSR RS,COMPAR ; COMPARE RESULTS 
523 004436 000005 5 
524 004440 011650 v2 
525 004442 104004 ERROR 4 
526 SLUR R AR AAAAAEE EAA ATTA EAE T ETAT A ETAT AKA Aee eee eA eAe eee te tteeee 
(3) ;*TEST 33 OFFSET ON CHO 
(3) SRR AERA E ATER EERE KEREKAHERERRAe Kee eee eA e ee 
(2) 004444 000004 TS1T33: SCOPE 
(1) 004446 012737 000001 001160 MOV #1 ,STIMES 3;D0 1 ITERATION 
527 004454 013737 001342 001372 MOV BASECH, CHANL :LOAD CHANNEL 
528 004462 013737 001342 001370 MOV BASECH, DUMMY ;LOAD DUMMY 
529 004470 004737 005214 JSR PC,OFFSET sFIND OFFSET 
530 004474 104401 014014 TYPE »MOFSET sTYPE ‘‘OFFSET="' 
531 004500 004737 005270 JSR PC, TOFF ; TYPE OFFSET 
532 004504 004537 011206 JSR R5,COMPAR :1S RESULT WITHIN LIMITS? 
533 004510 000000 
534 004512 011656 v50D 
535 004514 000401 BR OFFERR ;NO-ERROR 
*536 004516 000403 BR OF FOK 7 YES-OK 
557 004520 104401 012625 OFFERR: TYPE ,ERMSG 
538 004524 000402 &R TST34 3;GO TO NEXT TEST 
539 004526 104401 012303 OFFOK: TYPE ,OKMSG 


H 
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CVADAC.P11 29-SEP-80 09:34 134 TEST RAMP RANGE, CH3 SEQ 0033 
541 PLURAaReeeeeeeeeeeeeeeereerttrtteeetenteeteKteeeteeeeneeeeeereree 
(3) S*TEST 34 TEST RAMP RANGE, CH3 
(3) RRR AAeeKAAHe Tee Tete etre ee treteeKeKeeKeeeeKeeeeKeeeeeererenens 

(2) 004532 ~=000004 TS$T34: SCOPE 

| = §42 «004534 «012737 «000001 001160 MOV #1, STIMES :D0 THIS ONCE 

/  §43 004542 012703 007777 MOV #7777, R3 ‘INIT R3 VALUE 

| 544 004546 005004 CLR RG SAND R4& 

545 004550 012777 001400 174540 MOV #1400, aSTREG “SETUP FOR CH3 

546 004556 012702 047040 MOV #20000. ,R2 ‘SETUP FOR 50 000 CONVERSIONS 
547 004562 105277 174530 1$: INCB = @STREG 

548 004566 105777 174524 2$: TSTB = ASTREG 

549 004572 100375 BPL 2$ 

550 004574 027704 174522 CMP DADBUFF ,R4 

551 604600 003402 BLE 3$ 

552 004602 017704 174514 MOV DADBUFF ,R4 :HIT A NEW HIGH 

553 004606 027703 174510 3$: CMP QADBUFF R3 

554 004612 002002 BGE 4$ 

555 004614 017703 174502 MOV @ADBUFF ,R3 ;HIT A NEW LOW 

556 004620 005302 4$: DEC R2 

557 004622 001357 BNE 1$ 

558 004624 010337 001356 MOV R3, TEMP 

559 004630 004537 011206 JSR RS. COMPAR 

560 004634 000000 0 

561 004636 011646 vo 

562 004640 104004 ERROR 4 sRAMP DIDN'T REACH LOW END OF RANGE 
563 004642 010437 001356 MOV R4, TEMP 

564 004646 004537 011206 JSR RS. COMPAR 

565 004652 007777 7777 

566 004654 011646 vo 

567 004656 104004 ERROR 4 ;RAMP DIDN'T REACH HIGH END OF RANGE 
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000001 


007144 


001414 
007144 


001414 
007144 


001414 
007144 


001414 


000003 


001372 
000017 
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NOISE TEST, 1 EDGE 


'WROARBRBBBSAASAZASASSASSASSASARAASERRA RASA RAR RRR RARE RR RRR RADARS AAD DSS | 


NOISE TEST, 1 EDGE 


WROBSRBSBSARALRASSAARRARSRERERRARRASARE RRR RAR RRR RRR RRR RR RA RARER RRR AS SD | 


SeTEST 3 
T$135: 
001160 


001370 1$: 


001404 
001404 
001406 


001406 
097142 


001372 


001372 2$: 


5 


C 
CHANL , DUMMY 


PC ,GETEDG 
RMS 


PEAK 
R5S,SARSUB 
DAC,RMS 
R5,SARSUB 


DAC, RMS 
R5,SARSUB 


DAC, PEAK 
RS ,SARSUB 


DAC ,PEAK 

#1 ,EDGFLG 
PC,TYPRP 

CHANL 

#3, CHANL 

2s 


CHANL 
#17, CHANL 
1$ 


;;D0 1 ITERATION 


. ;LOAD CHANNEL 0 


;LOAD DUMMY CHANNEL 
;GET EDGE VALUE 

;CLEAR RMS VLAUE 
;CLEAR PEAK VALUE 

;D0 SAR ROUTINE AT 16% 


;ADD RESULT TO RMS 
D0 SAR ROUTINE AT 84% 


; SUBTRACT RESULT FROM RMS 
;D0 SAR ROUTINE AT 1% 


;ADD RESULT TO PEAK 
;DO SAR ROUTINE AT 99% 


;SUBTRACT RESULT FROM PEAK 
; TYPE RMS AND PEAK VALUES 
;GET NEXT CHANNEL 
;CHANNEL 3? 

33N0 

;CHANNEL 3 IS SKIPED 

; DONE? 

33NO 


SEQ 0034 
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005170 
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005212 
005214 
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000742 


000004 


000207 


012737 
004537 


000207 
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000001 


006764 


006722 
006722 


000001 
006572 
000002 


001360 
001362 
001362 


000001 
001202 


007344 
004001 
007144 
001414 
004000 
007144 


001414 
000400 


001160 


001360 
001362 
001372 


007142 
001360 


001360 


001160 


001420 


0013 
0014 


mou 
oon 


001356 
001356 


29-SEP-80 10:31 PAGE 19 
136 INTERCHANNEL SETTLING TEST, 1 EDGE 


RRR RRR AREER RE REAR HERRERA TAA AAAERERAARE EEK e TATA ETE 


TATEST 36 INTERCHANNEL SETTLING TEST, 1 EDGE 


SRR AAR RAAT E REET E TEETH RARER EERE AERA RERE RARER ER HERAT EES 


TS$T36: SCOPE 


MOV #1 ,STIMES 3;D0 1 ITERATION 

TYPE »SETMSG s TYPE ‘‘SETTLING TEST’ 

MOV #1,CH1 ‘DO TEST BETWEEN Lael 1 AND 2 

MOV #2 "CH2 
1$: MOV CH2, CHANL 

JSR PC, GETEDG ;GET EDGE VALUES 

CLR R2 

JSR PC,SETIA ;SCALING = .02 LSB 

JSR PC,SETIA :MAKE IT .01 LSB 

BPL 2$ 

NEG R2 sMAKE IT POSITIVE 
2$: MOV R2,R4 

MOV #1,EDGFLG 

JSR PC,TYPSET sTYPE SETTLING INFORMATION 

CMP #2,CH1 ; DONE? 

BEQ TST37 77 YES 

MOV CH1,R2 sSETTLE THE OTHER WAY 

MOV CH2,CH1 

MOV R2,CH2 

BR 1$ $3 
3$: 
FURR AERA REET EAE EAA E AEE A EAE AA TEER REAR AR AER K RA ARR RATES 
s*TEST 37 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST 
SUR A RARER eA AAA AEE E TETRA EAHA EAHA EAAAAARARAEA EAR KAAS 
TST37: SCOPE 

MOV #1,STIMES 3;D0 1 ITERATION 

TST SPASS sFIRST TIME-SKIP DIFLIN 

BEQ LEND 

JSR PC,DIFLIN 
LEND: RTS PC sRETURN TO TEST SECTION 
OFFSET: MOV #4001,EDGE 34000,4001 EDGE 


JSR R5,SARSUB 


MOV DAC, TEMP 
MOV #4000, EDGE 
JSR RS, SARSUB 


ADD DAC, TEMP 
SUB #400, TEMP 
PC 


33777,4000 EDGE 


SEQ 0035 


kK 
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CVADAC.P11 29-SEP-80 09:34 137 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST SEQ 0036 
635 005270 013702 001356 TOFF: MOV TEMP,R2 
/ 636 005274 100402 BMI 1$ 7718S THE NUMBER POSITIVE? 
| 637 005276 104401 012623 TYPE »POSITV 
_ 638 005302 104413 1$: TYPDC 
639 005304 104401 014027 TYPE -MLSB ;TYPE ASCIZ STRING 
640 005310 000207 RTS PC 
| 641 005312 005303 TCHK: DEC R3 ;DECREMENT COUNT 
642 005314 001005 BNE 1$ 
643 005316 012703 000005 MOV #5,R3 RESET COUN 
644 005322 104401 001171 TYPE SCRLF : TYPE A CARRIAGE RETURN AND LINE FEED 
645 005326 000402 BR $ 
646 005330 104401 012172 1$: TYPE , SPACE TYPE FOUR (4) SPACES 


648 005340 005077 173600 CLR astKs ;CLEAR INTERRUPT ENABLE 
649 005344 105777 173574 3$: TSTB «tee 31S KEYBOARD FLAG SET? 


37 YES 
651 005352 005237 001416 INC DELAY ;1S8 DELAY ZERO? 
652 005356 001372 BNE 3$ 33N0 


$ ae 
654 005362 005777 173560 4$: TST as$TKB ;CLEAR FLAG 
655 005366 012777 000100 173550 MOV #100,a$TKS ;SET INTERRUPT ENABLE 
656 005374 004537 011206 - R5,COMPAR ;TEST LAST CONVERSION 


658 005402 011652 v4 ;TOLERANCE .04 LSB 


5$ a3 
660 005406 062716 000002 ADD #2, (SP) ;BUMP RETURN ADDRESS 
661 005412 062716 000002 5$: ADD #2, (SP) ;BUMP RETURN ADDRESS 2 WORDS 


662 6$: i PC 

663 005420 104401 012314 BEGINC: TYPE ~CCHAN ;ASK FOR CHANNEL 

664 005424 104410 RDOCT ;READ CHANNEL NUMBER 

665 005426 012637 001372 MOV (SP)+,CHANL ;STORE CHANNEL NUMBER 

666 005432 013737 001372 001370 MOV CHANL , DUMMY [LOAD DUMMY 

6607 005440 104401 012342 1$: TYPE SEL sSELECT OFFSET OR GAIN ADJUST 


668 GET TEST 
669 005446 012600 MOV (SP)+,RO : MOVE POINTER TO RO 
670 005450 121027 000117 CMPB (RO) ,#'O il IT *'0''? 

671 005454 001406 BEQ AJOFF Hef GO Jo ADJUST OFFSET 
672 005456 121027 000107 CMPB (RO) ,#'G is "o'"? 

673 005462 001430 BEQ AJGAIN HAYES, ha TO ADJUST GAIN 
674 005464 104401 001170 TYPE , SQUES YPE ' 


| 647 005334 005037 001416 2$: CLR BELAY “CLEAR DELAY 
675 005470 000763 BR i$ 4 

| 

| 

| 

| 


| L 
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/CVADAC P11 29-SEP-80 09:34 137 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST SEQ 0037 
= 677,)—-005472 «104401 = 012455 AJOFF: TYPE , IGND ;GROUND CHANNEL 
, 678 005476 104407 RDLIN WAIT FOR CR 
| 679 005500 005726 TST (SP) + ;POP 1 WORD OFF STACK 
| 680 005502 104401 012415 1$: TYPE »XADJ SADJUST MESSAGE 
681 005506 104401 012514 TYPE eCRWR ; TYPE > i * WHEN READY"’ 
682 005512 012703 000005 MOV #5,R3 SET UP COUNT 
683 005516 004737 005214 2$: JSR PC OFFSET TEST” AND TYPE OFFSET ERROR 
005522 4737 005270 JSR PC, TOFF ;TYPE OFFSET 
685 005526 004737 005312 JSR PC, TCHK :CHECK FOR A CHARACTER AND DELAY 
686 005532 000771 BR 2$ 3 
687 005534 000762 BR 1$ ;;NOT WITHIN TOLLERANCE, TRY AGAIN 
688 005536 000005 RESET 
689 005540 000137 002262 JMP BEG2 
690 005544 104401 012543 AJGAIN: TYPE , 1VOLT ; INPUT #5.115 VOLTS ON CHANNEL 
691 005550 104401 012514 TYPE -CRWR 
692 005554 104407 RDLIN ;WAIT FOR CR 
693 005556 005726 TST (SP)+ ;POP 1 WORD STACK 
694 005560 104401 012607 1$: TYPE »YADJ ADJUST MESSAGE 
695 005564 104401 012431 TYPE -MOLSB ;TYPE '* FOR 0.00 LSB ERROR" 
005570 104401 012514 TYPE »CRWR 
697 005574 012703 000005 MOV #5 ,R3 ;SET UP COUN 
698 005600 012737 007777 001420 2%: MOV #7777 ,EDGE :LOOK FOR 76, 7777 EDGE 
699 005606 004537 007144 JSR RS,SARSUB 
700 005612 000062 50. 
701 005614 013737 001414 001356 MOV DAC, TEMP ;SAVE DAC 
702 005622 012737 007776 001420 MOV #7776 ,EDGE ;LOOK FOR 7775,7776 EDGE 
703 005630 004537 007144 JSR RS, SARSUB 
704 005634 000062 50. 
705 005636 063737 001414 001356 ADD DAC, TEMP ;ADD RESULTS 
706 005644 162737 000400 001356 SUB #400, TEMP ;OFFSET RESULT 
707 005652 004737 005270 JSR PC, TOFF ;TYPE GAIN 
708 005656 004737 005312 JSR PC, TCHK CHECK FOR CHARACTER AND DELAY 
709 005662 000746 BR 2$ ie 
710 005664 000735 BR 1$ :3NOT WITHIN TOLLERANCE, TRY AGAIN 
711 005666 000005 RESET 


712 005670 000137 002262 JMP BEG2 


uC 
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005674 


005746 
005750 


006062 


29-SEP-80 09 


012737 


010046 
104403 
2 


010046 
104403 
04 


000717 


~SBTTL 
005674 001374 BEGINP: MOV 
173410 C 


013723 
005722 
173212 
177700 
020000 


012167 


001620 
000100 


173312 


173310 
020000 


173114 
012172 


010000 


001171 


MACY11 306(1063) 
734 


173200 


173342 


173120 


2$: 


3$: 


4$: 


5$: 


29-SEP-80 


10:31 


PRINT VALUES ROUTINE 


ane 
#1$,-(SP) 


aSwWR,RO 
#177700,R0 
#BIT13,aSWR 
2$ 

.CH 
RO,-(SP) 


2 


0 
#RETURN,@VECTOR 
RO 


#B1T6,RO 
RO, aSTREG 
#160,R2 


aSTREG 


@ADBUFF ,RO 
+ alam 


RO,@DISPLAY 
1$ 

, SPACE 
RO,-(SP) 

4 

1 

4 aateal 


M 
PAGE 22 


SEQ 0038 


PRINT VALUES ROUTINE 
a. 


;TEST ADDRESS IN TADDR 
;CLEAR STATUS REGISTER 
; TYPE OUT HEADING 
;CLEAR PSW 


+ READ CHANNEL FROM SWITCH REG. 

; ISOLATE MUX BITS 

31S BIT 13 SET? 
::YES,SKIP TYPEOUT 


::;SAVE RO FOR TYPEOUT 

3; TYPE CHANNEL 

3:G0 TYPE--OCTAL ASCII 

si TYPE 2 DIGIT(S) 

3; SUPPRESS LEADING ZERO 
;ADDRESS AFTER INTRPT. 

» SWITCH BYTES 


;LOAD THE CHANNEL 
;TYPEOUT COUNTER 
START CONVERSION 
WAIT FOR INTRPT. 
;READ CONVERTED VALUE 
:1S BIT 13 SET? 
:NOT SET, mat “OUT LIST 
VALUE IN DISPLAY FOR DISPLAY CONTRO 
;REPEAT tONVERS ION 


:;SAVE RO FOR TYPEOUT 

:7PRINT OCTAL CONVERTED VALUE 
3:GO0 TYPE--OCTAL ASCII 

sz TYPE 4 DIGIT(S) 

3; TYPE LEADING ZEROS 


;DECREMENT THE COUNTER 
NO CARRIAGE RETURN 

; CARRIAGE RETURN 
;REPEAT CONVERSION 


—_-- -- - 


SS ne 
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006116 


006122 
006130 


006200 


006204 


006236 
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012737 


000137 


012737 
004737 


000137 


012737 


000137 
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09:34 
006064 
64 


006242 


006076 
011706 


006122 
002464 
002670 
013115 
001316 


001171 
004162 
006242 
006134 
011706 
006204 


006242 


006216 
011706 


001374 


011704 


001374 


011704 


001374 


011704 


~SBTTL 
BEGL: 


1$: 


~SBTTL 


BEGINA: 


1$: 


~SBTTL 


BEGINW: 
“1$: 


29-SEP-80 


N 
10:31 PAGE 23 
LOGIC TEST SECTION 


LOGIC TEST + han 


#BEGL,TADD 
PC, TESTAD 
PC,BEGINL 
+ Steet 


1 
#1$,AGTST 
SEOP 


AUTO 


TEST 
#BEGINA,TADDR 
PC, TESTAD 
PC,BEGINL 


»MEND 
STREG,-(SP) 


+t ;BUMPAD 
#1$,AGTST 
$EOP 


WRAPAROUND TEST 


#BEGINW, TADDR 
PC, TESTAD 

PC ,WRAP 

+ lees 


#1$,AGTST 
$SEOP 


; TEST ADDRESS 

NO OF ADDITIONAL AD'S 
;LOGIC TESTS 

MORE TO TEST? 

;TEST NEXT A/D 
:ADDRESS FOR EOP 

;TYPE END OF PASS 


sTEST ADDRESS 

NO. OF AD'S TO BE TESTED 
SLOGIC TESTS 
;TYPE END OF LOGIC TEST 
;SAVE STREG FOR TYPEOUT 
; TYPE OCTAL NUMBER 


6 DIGITS 
; TYPE LEADING ZEROS 
; TYPE A CR,LF 


:TEST NEXT A/D 
EST NEXT AD 

ADDRESS FOR EOP 
; TYPE END OF PASS 


: TEST ADDRESS 

;NO. OF AD'S TO BE TESTED 
; WRAPAROUND TESTS 

;MORE A/D'S TO BE TESTED? 
:YES-GO TEST NEXT ADV11 


; INCREMENTS $PASS 


SEQ 0039 


Sumemiaatdite' sg inecotnie ii sheas einea netic nar lmaatae ane ean ermmanmnes aici 


'MAINDEC=11-CVADA-C MACY11 306(1063) 29-SEP-80 10:31 PAGE 24 
‘CVADAC.P11 29-SEP-80 09:34 DETERMINE IF MORE ADV11°S TO BE TESTED SEQ 0040 
| 783 .SBITL DETERMINE IF MORE ADV11'S T0 BE TESTED 
784 006242 005737 001364 BUMPAD: TST NBEXT ADDITIONAL AD'S? 
| 785 006246 001434 BEQ ——-FFIXADR INQ= INITIALIZE ADDRESSES 
786 006250 006337 001440 ASL TSTBIT :MOVE BIT TO NEXT A ULE 
| 78? 006254 063737 001336 001316 ADD —-VADR,, STREG SET UP NEW ST-, REG. 
788 006262 063737 001336 001320 ADD VADR,ADST 1 SET uP NEW ADST1 
789 006270 063737 001336 601322 ADD VADR . ADBUF F ‘SET UP NEW BUFFER ADDRESS 
790 006276 063737 001340 001324 ADD VVCT, VECTOR ‘SET UP NEW VECTOR 
791 006304 063737 001340 001330 ADD VVCT,VECTR1 
792 006312 063737 001340 001332 ADD VVCT,VECTR2 
793 006320 063737 001340 001334 ADD VVCT.VECTR3 
794 006326 005077 172776 CLR avectRi 
795 006332 005337 001364 DEC NBEXT :ONE LESS ADV11 
796 006336 000473 BR BYPASS 
797 006340 062716 000002 FIXADR: ADD #2, (SP) 
798 006344 012737 000006 000004 FIXONE: MOV #6 AWERRVEC :SET UP ERRVEC 
799 006352 012737 007336 000010 MOV #DELAY4, a#RESVEC ;SETUP RESERVED INST. VECTOR 
800 006360 012737 000001 001440 MOV #1, TSTBIT s INITIALIZE MODULE ERROR TEST BIT 
801 006366 013737 001250 001316 MOV $BASC,,STREG ;RELOAD INITIAL ADDRESSES 
802 006374 613737 001250 001320 MOV $BASE.ADST1 
803 006402 013737 001250 001322 MOV $BASE , ADBUF F 
804 006410 005237 001320 INC ADST1 
B05 006414 062737 000002 001322 ADD #2, ADBUF F 
B06 006422 013737 001244 001324 MOV $VECT1, VECTOR 
807 006430 042737 170000 001324 BIC #170000, VECTOR 
808 006436 113737 001245 001326 MOVB  $VECT1+1,BASEBR 
809 006444 105037 001327 CLRB  —sBASEBR*+1 :CLEAR HIGH BYTE 
810 006450 013737 001324 001330 MOV VECTOR, VECTR1 
811 006456 062737 000002 001330 ADD #2, VECTRI 
812 006464 013737 001324 001332 MOV VECTOR, vecTRe 
813 006472 062737 000004 001332 ADD #4, VECTR2 
814 013737 001324 001334 MOV VECTOR ,VECIR3 
815 006506 062737 000006 001334 ADD #6, 
816 006514 005077 172610 CLR avec TRI 
817 013737 001366 001364 NMBEXT ,NBEXT :RESET COUNTER 
818 3; LOAD by AND HALT TRAP CATCH;; 
819 006526 012700 000216 BYPASS: MOV #216,RO FILL .#2 
820 006532 012701 000214 MOV #214.R1 ‘LOAD HALT 
821 006536 020137 001344 1$: CMP R1,KBVECT 
822 006542 001410 BEQ 23° 
823 006544 010021 MOV RO, (R1)+ 
824 006546 005021 CLR (Ri)+ 
825 006550 010100 MOV R1,RO 
826 006552 005720 TST (RO) + 
827 006554 020027 901002 CMP RO, #1002 
828 006560 001366 BNE 1$ 
829 006562 000207 | RTS PC :TEST NEXT A/D 
830 006564 022021 2$: CMP (RC)+,(R1)+ 
831 006566 022021 CMP (RO)+, (R1)+ 
832 006570 000762 BR 1$ 


ee 


‘MAINDEC-11=CVADA=C MACY11 30G6(1063) 29-SEP-80 10:31 PAGE 25 
‘CVADAC.P11 29-SEP-80 09:34 DETERMINE IF MORE ADV11'S TO BE TESTED SEQ 0041 
834 006572 104413 TYPSET: TYPDC 
B35. 006574 «104401 012177 TYPE LSB 
8536 006600 013746 001362 MOV CH2,-(SP) is SAVE cH2 FOR TYPEOUT 
| (1) 006604 = 104403 TYPOS ::G0 TYPE=-OCTAL ASCII 
» (1) 006606 002 .BYTE 2 +: TYPE 2 DIGIT(S) 
(1) 006607 000 .BYTE 0 >: SUPPRESS LEADING ZEROS 
| 837, 006610 104401 014035 TYPE ,MAT sTYPE ASCIZ STRING 
| — 838.-—-006614 +=004737 +007100 JSR PC, TYPEDG 
839 006620 104401 012212 TYPE ,SETCH 
Tit 006624 013746 001360 MOV CH1,-(SP) Be oh a FOR TYPEOUT 
(1) 006630 104403 TYPOS +360 Ne ses 9 Pr ASCII 
(1) 006632 002 .BYTE 2 +: TYPE 2 DIGIT(S) 
(1) 006633 000 BYTE 0 3; SUPPRESS LEADING ZEROS 
B41 006634 104401 012234 TYPE ,ATMSG 
842 006640 013737 001360 006666 MOV CH1,1$ 
843 006646 163737 001342 006666 SUB BASECH,1$ 
844 006554 012777 000200 172440 MOV #200, @ADBUFF 
845 006662 004537 011074 JSR R5,CONVRT 
846 006666 000000 1$: 0 
ri 006670 013746 001356 MOV TEMP,-(SP) ph ah ae TYPEOUT 
| (1) 006674 104403 TYPOS 3:G0 TYPE--OCTAL ASCII 
(1) 006676 004 BYTE 4 s; TYPE 4 DIGIT(S) 
(1) 006677 001 -BYTE 1 3s; TYPE LEADING ZEROS 
848 006700 020437 011666 CMP R4,VSET 
849 006704 003003 BGT ERR 
850 006706 104401 012303 TYPE ;OKMSG 
851 006712 000207 RTS PC 
852 006714 104401 012625 ERR: TYPE ,ERMSG 
853 006720 000207 RTS PC ‘ 
855 i i SUBROUT INE FOR SETTLING TESTS;; 
856 006722 013737 001362 001370 SETIA: MOV CH2, DUMMY :LOAD DUMMY 
857 006730 004537 007144 * JSR RS, SARSUB :DO SAR ROUTINE AT 50% 
858 006734 000062 50. 
859 006736 063702 001414 ADD DAC,R2 ;ADD RESULT TO R2 
860 006742 013737 001360 001370 MOV CH1, DUMMY :CHANGE DUMMY VALUE 
861 006750 004537 007144 JSR R5,SARSUB ‘DO SAR ROUTINE AT 50% 
862 006754 000062 50. 
863 006756 163702 001414 SUB DAC,R2 :SUBTRACT RESULT FROM R2 
864 006762 000207 RTS PC RETURN 


ee 


901 007142 000000 EDGFLG: 0 


Dd 
“MALNDEC- -11-CVADA-C MACY11 30G(1063) 29-SEP-80 10:31 PAGE 26 
CVADAC .P11 29-SEP-80 09:34 ‘ DETERMINE IF MORE ADV11'S TO BE TESTED SEQ 0042 

| 866 ;SUBROUTINE TO GET EDGE VALUE 

| 867 :CALL=JSR PC, GETEDG 
868 CONVERSIONS ON “— CHANNEL ‘CHANL* 
869 :RESULT an M etenis $ RO 
870 006764 012777 000200 172330 GETEDG: 1200. @ADBUF F ;LOAD VERNIER DAC 
871 006772 113700 001372 MOVE CHANL ,RO ;GET CHANNEL 
872 006776 . 000300 SWAB ee ;SET UP A.D STATUS REG. 
873 007000 052700 000100 BIS #100,R0 ;ENABLE INTRPT. 
874 907004 010077 172306 MOV RO aSTREG 
875 007010 012700 000100 MOV #100, ;DAC SETTLING DELAY 
876 007014 005300 1$: DEC 
877 007016 001376 BNE *S 
878 007020 005037 001420 CLR EDGE 
879 007024 012700 000010 MOV #10,R0 
880 007030 012777 001620 172266 MOV #RETURN,aVECTOR ;RETURN ADDRESS 
881 007036 005277 172254 CONV: INC @sTREG ;START CONVERSION 
882 007042 000001 WAIT ;WAIT FOR INTERRUPT 
883 007044 067737 172252 001420 ADD @ADBUF F , EDGE 
884 007052 005300 DEC RO 
885 007054 001370 BNE CONV 
886 007056 006237 001420 ASR EDGE 
887 007062 006237 001420 ASR EDGE 
888 007066 006237 001420 ASR EDGE 
889 007072 005537 001420 ADC EDGE 
Bey 007076 000207 RTS PC 
892 ;;SUBROUTINE TO TYPE EDGE VALUES;; 
893 007100 013703 001420 TYPEDG: MOV EDGE ,R3 
894 007104 010346 MOV R3,-(SP) 7;SAVE R3_ FOR TYPEOUT 
(1) 3; TYPE OCTAL VALUE OF EDGE 
(1) 007106 104403 TYPOS 3:60 TYPE--OCTAL ASCII 
(1) 007110 004 -BYTE 4 3; TYPE 4 DIGIT(S) 
(¥) 007111 001 BYTE 1 3: TYPE LEADING ZEROS 
895 007112 023727 007142 000001 CMP EDGFLG,#1 
896 007120 001407 BEQ RET 
897 007122 062703 000007 ADD #7 ,R3 
898 007126 104401 012103 TYPE »MINUS :TYPE ASCIZ STRING 
899 007132 010346 MOV R3,-(SP) :;SAVE R3 FOR TYPEOUT 
(1) ;: TYPE EDGE VALUE 
(1) 007134 104403 TYPQS :3G0 TYPE=-OCTAL ASCII 
(1) 007136 004 -BYT 4 77 TYPE 4 DIGIT(S) 
(1) 007137 001 mYts. . 3 :; TYPE LEADING ZEROS 
900 007140 000207 RET: RTS PC 

| 

| 

| 

| 
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000101 


172046 
001372 


000101 
172024 


172022 


001432 


001422 
001422 


001420 


001414 


29-SEP-80 10:31 PAGE 27 
DETERMINE IF MORE ADV11'S TO BE TESTED SEQ 0043 


;SUBROUTINE TO DO SUCCESSIVE APPROXIMATION ROUTINE 
:CALL= JSR ot Ph yh! B 


XXX; XXX=PERCENT 
:RESULT RETURNED IN "DAC? .USES RO,R1,R4 
SARSUB: MOV (R5) +, PERCNT :GET PERCENT 
ASL PERCNT 
ASL PERCNT 
ASL PERCNT :RESCALE PERCENT {FOR 1600. 
ASL PERCNT “POINTS PER BUR 
SAR1: MOV #200,BITPNT ‘INITIALIZE BIT SDOINTER AT MSB 
CLR DAC ‘INITIALIZE DAC VALUE 
TRY: CLR RO 
ADD BITPNT,DAC :TRY BIT 
MOV DAC, @ADBUF F 
MOV #1600.,R1 :SET UP FOR 1600. CONVERSIONS 
NXTCVT: MOVB DUNMY SADSTI “PRESET MUX TO DUMMY CHANNEL 
MOV #RETURN, aVECTOR “RETURN ADDRESS 
BIS #101, aSTREG “CONVERSION ON DUMMY CHANNEL 
WAIT ‘WAIT FOR INTERRUPT 
MOV DADBUFF ,R4 “DUMMY READ 
MOV CHANL ,R4 
SWAB RG 
BIS #101,R4 s INTERRUPT ENABLE START 
MOV R4,aSTREG “JUMP TO CHANNEL + START CONVERT 
WAIT “WAIT FOR INTERRUPT 
CMP @ADBUFF ,EDGE 
BGE 2$ 
INC RO sCOUNT RESULTS .LT. EDGE 
2$: DEC R1 
BNE NXTCVT 
CMP RO, PERCNT 
BGT SHIFT 
SUB BITPNT,DAC : TAKE THE BIT OUT 
SHIFT: ASR BITPNT 
BNE TRY 
RTS R5 
*ROUTINE FOR PROCESSERS THAT CAN'T DO A SOB INSTRUCTION 
DELAYS: DEC RO :DECREMENT RO, IS IT ZERO? 
BNE DELAY4 NO 


RTI RETURN 
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000003 
001342 


000100 


007776 


177770 
171546 


171542 
007777 


020034 
077777 020034 
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bEFLIN 


CLEAR1: 


CLEAR2: 


CHANNL : 


AGAIN: 
NEXT: 


DELAYS: 


CONVR: 


10:31 PAGE 28 
DETERMINE IF MORE ADV11'S TO BE TESTED 


DIF Ay il ie LINEARITY SUBROUTINE; ; 
YPE .MSG20 


RNA,R2 

RNB RG 
RNC,R5 
#BUFFER,RO 
#4096. ,R1 
(RO)+ 


R1 
CLEAR1 
#DIST,RO 
#200.,R1 
R3 

OUT 

WIDE 
NARROW 
FIRST 
SKIPST 
(RO) + 

R1 
CLEAR2 


#3,R0 
BASECH,RO 
RO 

#100,R0 

RO aSTREG 
#800., DELAY 


WRETI, ;AVECTOR 
#4094. 21 


CON 
RO,DELAYS 
@STREG 


@ADBUF FRO 
DELAY 
RO.47277 


R 
BUFFER (RO) 


OKAY 
#077777 ,BUFFER(RO) 
OKAY 


;SET UP RANDOM NUMBER GENERATOR 


34096 WORDS ie HISTOGRAM 
;CLEAR BUFFER AREA 


;DISTRIBUTION BUFFER POINTER 
3200. WORDS FOR DISTRIBUTION 


;CLEAR DISTRIBUTION BUFFER AREA 


;CHANNEL 3 
;LOAD MUX BITS 


;NOMINAL STATE WIDTH - 1 LSB 


;COPY INTO DELAY 
;MASK IT TO 4 BITS ONLY 


sSTALL TIME 
START CONVERSION 


;GET CONVERTED VALUE 
; IGNOR E IF 

; IGNORE IF =7777 
;MAKE HISTOGRAM 


PREVENT OVERFLOW 


SEQ 0044 


G 4 


MAINDEC=$11-CVADA-C MACY11 30G6(1063) 29-SEP-80 10:31 PAGE 29 
CVADAC.P11 29-SEP-80 09:34 DETERMINE IF MORE ADV11'S TO BE TESTED SEQ 0045 

1001 007610 005037 001356 NOTOK: CLR TEMP 

1002 007614 000407 BR OKAY 

1003 007616 020027 007777 DELAY1: CMP RO,#7777 sEQUALIZE LOOP TIME 

1004 007622 001400 BEQ DELAY2 sWITH DUMMY INSTR. 

1005 007624 005201 DELAY2: INC R1 

1006 007626 005263 001356 INC TEMP(R3) 

1007 007632 100766 BM] NOTOK 

1008 007634 005301 OKAY: DEC R1 

1009 007636 001324 BNE NEXT 

1010 007640 005337 001416 APOUND: DEC DELAY 

1011 007644 001317 BNE AGAIN 

1012 007646 012700 007776 MOV #4094. ,RO 

1013 007652 012701 020036 MOV #BUFFER+2,R1 

1014 007656 012102 READ: MOV (R1)+,R2 :GET STATE WIDTH 

1015 007660 006202 ASR R2 ;1 LSB = 800. 

1016 007662 006202 ASR R2 

1017 007664 006202 ASR R2 

1018 007666 005502 ADC R2 31 LSB = 100. 

1019 007670 020227 000310 CMP R2,#200. sOUT OF RANGE? 

1020 007674 002403 BLT INRNGE 

1021 007676 005237 001434 INC UT ;YES = INCREMENT COUNTER 

1022 007702 000423 BR TYPBAD 

1023 007704 006302 INRNGE: ASL R2 

1024 007706 005262 017214 INC DISTC(R2) ;MAKE STATE WIDTH DISTRIBUTION 

1025 007712 006202 ASR R2 

1026 007714 020227 000062 CMP R2,4#50. ;1S IT 1/2 LSB? 

1027 007720 002007 BGE NOTNAR 

1028 007722 005237 061350 INC NARROW 

1029 007726 005702 TST R2 :1S IT A SKIPPED STATE? 

1030 007730 001002 BNE 31$ 

1031 007732 005237 001354 INC SKIPST 

1032 007736 000405 31$: BR TYPBAD 

1053 007740 020227 000226 NOTNAR: CMP R2,#150. 71S 17 1.5 LSB? 

1034 007744 003425 BLE LAST 

1035 007746 005237 001346 INC WIDE 

1036 007752 005737 001352 TYPBAD: TST FIRST 

1037 007756 001004 BNE 60$ 

1038 007760 005237 001352 INC FIRST 

1039 007764 104401 012147 TYPE , STATE 

1040 007770 010103 60$: MOV R1,R3 

1041 007772 162703 020036 SUB #BUFFER+2,R3 

1042 007776 006203 ASR R3 

1043 010000 010346 MOV R3,-(SP) 3;SAVE R3 FOR TYPEOUT 
(1) 7; TYPE STATE 
(1) 010002 104403 TYPOS 3:G0 TYPE--OCTAL ASCII 
(1) 010004 004 BYTE 4 sc TYPE 4 DIGIT(S) 
(1) 010005 001 BYTE 1 7; TYPE LEADING ZEROS 

1044 010006 104401 012143 TYPE DASH 

1045 010012 104413 TYPDC 

1046 010014 104401 012134 TYPE »L SBMSG 


4 


MAINDEC=11-CVADA-C MACY11 306(1063) 29-SEP-80 10:31 PAGE 30 
CVADAC.P11 29-SEP-80 09:34 DETERMINE IF MORE ADV11'S TO BE TESTED SEQ 0046 
1048 010020 005300 LAST: DEC RO 
1049 010022 001315 BNE READ 
1050 010024 112737 000177 014620 MOVB #177, DECPNT 
1051 010032 013702 001354 MOV SKIPST,R2 :GET NO. OF SKIPPED STATES 
/ 1052 010036 104413 TYPDC sTYPE IT 
1053 010040 104401 012642 TYPE ,SKPMSG : TYPE MESSAGE 
1054 010044 005737 001354 TST SKIPST 
| 1055 010050 001403 BEQ 1$ 
1056 010052 104401 012625 TYPE ,ERMSG : TYPE "'ERROR'’ 
/ 1057 010056 000402 BR NAR 
| 1058 010060 104401 012303 1$: TYPE —_, OKMSG is TYPE #OKA 
| 1059 010064 013702 001350 NAR: MOV NARROW ,R2 :GET NO. OF NARROW STATES 
1060 010070 104413 TYPDC -TYPE IT 
1061 010072 104401 012664 TYPE ,NARMSG : TYPE MESSAGE 
1062 010076 013702 001346 MOV WIDE ,R2 
1063 010102 063702 001434 ADD OUT,R2 
1064 010106 104413 TYPDC sTYPE NO. OF WIDE STATES 
1065 010110 104401 012723 TYPE ,WIDMSG : TYPE MESSAGE 
1066 010114 013702 001434 MOV OUT,R2 
1067 010120 104413 TYPDC :TYPE NO. OF STATES OUTSIDE-2 LSB 
1068 010122 104401 012762 TYPE ,OUTMSG : TYPE MESSAGE 
1069 010126 005737 001434 TST OuT 
1070 010132 001403 BEQ 11$ 
1071 010134 104401 012625 TYPE JERMSG : TYPE ‘'ERROR'' 
1072 010140 000402 BR HALF 
1073 010142 104401 012303 11$: TYPE ,OKMSG s TYPE ‘'OK"' 
1074 010146 013702 001350 HALF: MOV NARROW, R2 
1075 010152 063702 001346 ADD WIDE ,R2 
1076 010156 063702 001434 ADD OUT, R2 
1077 010162 010200 MOV R2,RO 
1078 010164 104413 TYPDC sTYPE NO. OF STATES OUTSIDE LIMITS 
1079 010166 112737 000056 014620 MOVB #56,DECPNT 
1080 010174 104401 013015 TYPE HAF MSG 
1081 010200 020027 000051 CMP RO,#41. :COMPARE IT TO NOMINAL 
1082 010204 003403 BLE cis 
1083 010206 104401 012625 TYPE »ERMSG TYPE ‘‘ERROR’ 
1084 010212 000402 BR SWOIST 
1085 010214 104401 012303 21$: TYPE ,OKMSG : TYPE ‘'OK"’ 
1086 010220 005737 001410 SWDIST: TST FLAG :v155? 
1087 010224 001426 BEQ RELACC 
1088 010226 004737 010704 JSR PC,DELCLR sWAIT AWHILE, THEN CLEAR V1T55 
1089 010232 104401 013272 TYPE »MSG16 
1090 010236 104401 014064 TYPE ,BUFF1 :TYPE BUFF1-PRINT GRID 
1091 010242 012700 017214 MOV #DIST,RO =POINTER TO STATE WIDTH DISTRIBUTION 
1092 010246 012701 000310 MOV #200.,R1 :G0 200. TIMES UP TO 2 LSB 
1093 010252 012002 NXTY1: MOV (RO)+,R2 
1094 010254 004737 011400 JSR PC, LOADY 
1095 010260 005002 CLR i 
1096 010262 004737 011400 JSR PC,LOADY 
1097 010266 005301 DEC R1 
1098 010270 001370 BNE NxTY1 
1099 010272 104401 014005 TYPE C2 : TYPE ASCIZ STRING 
| 1100 010276 004737 010704 JSR PC ,DELCLR 
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DETERMINE IF MORE ADV11'S TO BE TESTED 


; CHANGE HISTOGRAM ERROR TO RELATIVE ACCURACY ERROR 


RELACC: CLR R1 ;RUNNING ERROR = 0 
CLR sMAXIMUM ERROR = 0 
TYPE »MSG21 
MOV #BUFFER+2,R0 
NXTSTA: MOV (RO),R2 sSTATE WIDTH = R2 
SUB #800.,R2 :STATE WIDTH ERROR IN R2 
ADD R2,R1 sUPDATE RUNNING ERROR 
MOV R1,(RO)+ ;SAVE IN BUFFER 
MOV R1,R4 sSAVE IN R4& ALSO 
BPL PLUS :1S IT POSITIVE? 
NEG RG ;NO - MAKE IT POSITIVE 
PLUS: CMP R4,R3 sCHECK AGAINST PREVIOUS MAX. ERROR 
BLE NOTNEW sNOT A NEW MAXIMUM 
MOV R4,R3 ;UPDATE MAXIMUM IN R3 
MOV RO,RS 
SUB #BUFFER+2,R5 
ASR R5 sRS=EDGE VALUE AI MAX. RELACC 
NOTNEW: CMP RO,#BUFFER*+8190. ;DONE? 
BNE NXTSTA 3NO - REPEAT 
ASR R3 ;RESCALE FROM 1 LSB = 800. SCALING 
ASR wR :T0 1 LSB = 100. SCALING 
ASR R3 
ADC R3 
MOV R3,R2 
TYPDC 
TYPE »LINEA 
MOV R5,-(SP) 7; SAVE RS FOR TYPEOUT 
37 TYPE VALUE 
TYPOS 3:G0 TYPE=--OCTAL ASCII 
BYTE 4 si; TYPE 4 DIGIT(S) 
BYTE 1 7; TYPE LEADING ZEROS 
TYPE » SLASH sPRINT ‘/°* 
INC RS 
MOV R5,-(SP) 3; SAVE RS FOR TYPEOUT 
3: TYPE VALUE 
TYPOS 773G0 TYPE=-OCTAL ASCII 
.BYTE 4 zi; TYPE 4 DIGIT(S) 
BYTE 1 7; TYPE LEADING ZEROS 
CMP R3,VLIN 
BLE 4i$ 
TYPE ,ERMSG 
BR 42% 
41$: TYPE ,OKMSG 
42%: TST FLAG 3v7T55? 
BEQ 


LO2 
MOV #BLUFFER,RO 
MOV #4096. ,R1 


SEQ 0047 


“MAINDEC-11-CVADA-C MACY11 306(1063) 29-SEP-80 10:31 PAGE 32 
‘CVADAC.P11 29-SEP-80 09:34 DETERMINE IF MORE ADV11'S TO BE TESTED SEQ 0048 
1144 010462 011002 GETDAT: MOV (RO) ,R2 :GET RELATIVE ACCURACY ERROR SCALED 1L$B = 800. 
1145 010464 005202 ASR R2 “RESCALE IT TO 1 LSB = 100. 
1146 010466 006202 ASR Ro 
4147 010470 006202 ASR R2 
| 1148 010472 005502 ADC R2 
1149 010474 062702 000166 ADD #118. ,R2 :AND MOVE IT TO MID-SCREEN 
1150 010500 010220 MOV R2,(RO)+ “PUT IT BACK INTO BUFFER 
1151 010502 005301 DEC R1 
1152 010504 001366 BNE GETDAT 
1153 010506 012700 020034 MOV #BUFFER,RO 
1154 010512 012704 020034 MOV #BUFFER.RG 
1155 010516 012705 020036 MOV #BUFFER+2,R5 
1156 010522 012701 001000 MOV #512.,R1 
1157 010526 012702 000007 NXT8: MOV 
1158 010532 012003 MOV (ROS+,R3 
1159 010534 010337 001424 MOV R3,MIN : MINIMUM 
1160 010540 010337 001430 MOV R3.MAX : MAX IMUM 
1161 010544 012003 NXTCMP: MOV (RO)+,R3 
1162 010546 020337 001424 CMP R3,MIN 
1163 010552 002002 BGE MAXTST 
1164 010554 010337 001424 MOV R3,MIN :NEW MINIMUM 
1165 010560 020337 001430 MAXTST: CMP R3, MAX 
1166 610564 003402 BLE TST8 
1167 010566 010337 001430 MOV R3, MAX :NEW MAXIMUM 
1168 010572 005302 TSTB: DEC R2 
1169 010574 001363 | BNE NXTCMP 
1170 010576 013724 001424 MOV MIN, (R4)+ 
1171 010602 013725 001430 MOV MAX. (RS) ¢ 
1172 010606 022425 CMP (RGS+,(R5)+ :BUMP EACH ONCE MORE 
1173 010610 005301 DEC R1 
1174 010612 001345 BNE NXT8 
1175 010614 104401 013200 TYPE  ,MSG18 
1176 010620 104401 014112 TYPE ,BUFF2 : TYPE BUFF 2 
1177 010624 012700 020034 MOV #BUFFER,RO 
1178 010630 004737 010662 JSR PC, LOAD 
1179 010634 104401 014012 TYPE :TYPE ASCIZ STRING 
1180 010640 012700 020036 MOV #BUFFER+2,R0 
1181 010644 004737 010662 JSR PC,LOAD 
1182 010650 104401 014005 TYPE — sTYPE ASCIZ STRING 
1183 010654 004737 010704 JSR PC ,DELCLR 
| 4184 010660 000207 LO2: RTS PC 
1185 010662 012701 001000 LOAD: MOV #512.,R1 
1186 010666 012002 LOADO: MOV (RO)+,R2 
1187 010670 005720 TST (RO) + 
1188 010672 004737 011400 JSR PC,LOADY 
1189 010676 005301 DEC R1 
1190 010700 001372 BNE LOADO 
1191 010702 000207 RTS PC 
| 
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29-SEP-80 10:31 PAGE 
#B1T12,aSWR 
E 1$ 
HALT 
BR 3$ 
1$: CLR RO 
MOV #20,R1 
2$: DEC RO 
BNE e$ 
DEC R1 
BNE 2$ 
3$: TYPE »VTINIT 
RTS PC 
3: TYPE RMS AND PEAK VALUES;; 
TYPRP: TYPE »NOI 
TST RMS 
BPL POSRMS 
CLR RMS 
POSRMS: TST PEAK 
BPL POSPEA 
CLR PEAK 
POSPEA: MOV RMS ,R2 
TYPDC 
TYPE »MESR 
MOV PEAK ,R2 
TYPDC 
TYPE »MESP 
JSR PC, TYPEDG 
TYPE , CHAN 
MOV CHANL ,-(SP) 
TYPOS 
-BYTE 2 
BYTE 0 
CMP RMS, VNR 
BGT 
CMP PEAK , VNP 
BGT R 
TYPE ,OKMSG 
RTS P 
ER: TYPE -ERMSG 
RTS PC 


33 
DETERMINE IF MORE ADV11'S TO BE TESTED 


; TEST FOR HALT FOR DISPLAY 
3;DON'T HALT FOR DISPLAY 


;DELAY BEFORE CLEANING SCREEN 


;RMS<O,SET RMS=0 


;PEAK<O,SET PEAK=0 


; TYPE '' LSB RMS, "* 


;TYPE ** LSB PEAK AT "’ 


;TYPE '' ON CHANNEL “* 
;;SAVE CHANL FOR TYPEOUT 
3; TYPE CHANL 

3;G0 TYPE--OCTAL ASCII 
sz TYPE 2 DIGIT(S) 

3; SUPPRESS LEADING ZEROS 
sWITHIN LIMITS? 


WITHIN LIMITS? 


SEQ 0049 


L 
MAINDEC=11-CVADA=C MACY11 306(1063) 29-SEP-80 10:31 PAGE 34 
‘CVADAC.P11 29-SEP-80 09:34 DETERMINE IF MORE ADV11'S TO BE TESTED SEQ 0050 
1231 : ROUTINE TO AVERAGE 8 CONVERSIONS;; 
| 1232 011074 012500 CONVRT: MOV (R5)+,R0 :GET CHANNEL VALUE 
1233 011076 063700 001342 ADD BASECH,RO 
1234 011102 010037 001372 MOV RO, CHANL 
1235 011106 000300 SWAB RO 
1236 011110 005037 001356 CLR EMP 
1237. 011114 010077 170176 MOV RO, aSTREG :LOAD CHANNEL INTO MIX BITS 
1238 011120 012700 010000 MOV #16000,R0 
1239 011124 005390 2$: DEC RO 
1240 011126 001376 BNE 2$ 
1241 011130 012777 001620 170166 MOV #RETURN,AVECTOR ;LOAD VECTOR 
1242 011136 012700 000010 MOV #10,R :SET UP COUNTER 
1243 011142 152777 000101 170146 1$: BISB #101, aSTREG :SET INTRPT. EN., START CONV. 
1244 011150 000001 WAIT :WAIT FOR CONVERSION 
1245 011152 067737 170144 001356 ADD @ADBUFF, TEMP :READ BUFFER 
1246 011160 005300 DEC RO 
1247 11162 001367 BNE 1$ :D0 8 TIMES 
1248 011164 006237 001356 ASR TEMP “AVERAGE VALUE 
1249 011170 006237 001356 ASR TEMP 
1250 011174 006237 001356 ASR TEMP 
1251 011200 005537 001356 ADC TEMP 
1252 011204 000205 RTS R5 RETURN 
1254 ;COMPARE $GDDAT AND $BDDAT;; 
1255 011206 012537 001124 COMPAR: MOV (R5)+,$GDDAT :GET GOOD DATA 
1256 011212 013537 001412 MOV a(R5)+,SPREAD ;GET SPREAD 
1257 011216 013737 001356 001126 MOV TEMP, $BDDAT sGET BAD(ACTUAL) DATA 
1258 011224 013701 001126 MOV $BDDAT,R1 
1259 011230 013700 001124 MOV $GDDAT_RO 
1260 011234 160100 SUB R1,R0 ;GET DIFFERENCE 
1261 011236 100001 BPL 7$ 
1262 011240 005400 NEG RO 
1203 011242 020037 001412 7$: CMP RO, SPREAD sCOMPARE IT TO SPREAD 
1264 011246 003001 BGT 10$ :GO TO ERROR PRINTOUT 
1265 011250 005725 TST (R5)+ sBUMP RETURN POINTER AROUND ERROR CALL 
1266 011252 000205 10$: RTS R5 


senses 


“MAINDEC- -11-CVADA-C MACY11 30G6(1063) 29-SEP-80 10:31 PAGE 35 
CVA DAC.P11 29-SEP-80 09:34 DETERMINE IF MORE ADV11'S TO BE TESTED SEQ 0051 

1268 ;;SUBROUTINE TO TYPE INTRPT. TST MSG.;; 
1269 011254 005737 001202 DUMW: TST SPASS 
1270 011260 001021 BNE 
1271 011262 012737 011324 001110 MOV #20$,S$LPERR 
1272 011270 012737 011324 001106 MOV #20$,$LPADR 
1273 011276 104401 014042 TYPE »METST sTYPE ASCIZ STRING 
1274 011302 010046 MOV RO,-(SP) ;: SAVE RO a Bs TYPEOUT 
(1) i; TYPE TEST 

(1) 011304 104403 TYPOS 3360 TYPE*-OCTAL ASCII 
(1) 011306 002 OTE @ is TYPE 2 DIGIT(S) 

(1) 011307 000 BYTE 0 :; SUPPRESS LEADING ZEROS 
1275 011310 104401 013141 TYPE ,ONAD 
1276 011314 013746 001316 MOV STREG,=(SP) ;;SAVE STREG FOR TYPEQUT 
(1) :: TYPE BUS ADDRESS 

(1) 011320 104403 TYPOS 3:G0 TYPE*-OCTAL ASCII 
(1) 011322 006 BYTE 6 ;; TYPE 6 DIGITS 

(1) 011323 001 BYTE 1 ;; TYPE LEADING ZEROS 

44 011324 000207 20$: RTS PC 

279 011326 005737 001202 DUMC: TST SPASS 

280 011332 001010 BNE 30$ 

281 011334 012737 011354 © 001110 MOV #30$,SLPERR 

282 011342 012737 011354 001106 MOV #30$,SLPADR 

283 011350 104401 012266 TYPE ,DONE 

284 011354 000207 30$: RTS PC 


'MAINDEC-11-CVADA-C MACYIT 30G(1063) 29-SEP=80__ 10:31 


PAGE 36 
[CVADAC.P11 29-SEP-80 09:3 DETERMINE IF MORE ADV11'S TO BE TESTED SEQ 0052 
1286 : SUBROUTINE TO RESET & SET INTRPT. EN.; 
1287 011356 000005 RST: | - RESET 
1288 011360 052777 000100 167556 BIS #100,aSTKS 
1289 011366 005046 CLR -(SP) ;CLEAR PSW 
1290 011370 012746 011376 MOV #1$,-(SP) 
1291 011374 000002 RTI 
1292 011376 000207 1$: RTS PC 
1294 ; SUBROUTINE LOADY; 
1295 011400 005702 LOADY: TST R? sROUTINE TO LOAD VLAUE INTO R2 
1296 011402 100001 BPL PLUSR2 ‘AS A V155 Y=VALUE , 
1297. 011404 005002 CLR 
1298 011406 020227 000353 PLUSR2: CMP R2,#235. 
1299 011412 002402 BLT LESS 
1300 011414 012702 000353 MOV #235. ,R2 
1301 011420 010203 LESS: MOV R2,R3 
1302 011422 042702 177740 BIC #177740,R2 
1303 011426 052702 000040 BIS #40,R2 
1304 011432 105777 167512 B10:  TSTB  a$TPS :PRINT CHARACTER 
1305 011436 100375 BPL B10 
1306 011440 110277 167506 MOVB  R2,a$TPB 
1307 011444 006203 ASR R3 
1308 011446 006203 ASR R3 
1309 011450 006203 ASR R3 
1310 011452 006203 ASR R3 
1311 011454 006203 ASR R3 
1312 011456 042703 177770 BIC #177770,R3 
1313 011462 052703 000040 BIS #40,R3 
1314 011466 105777 167456 B11: TSTB asTPs :PRINT CHARACTER 
1315 011472 100375 BPL B11 
1316 011474 110377 167452 MOVB  R3,a$TPB 
1317, 011500 000207 RTS PC 


tr -- CC + re - Oe ese re ee eee 


‘MAINDEC-11-CVADA-C MACY11 306(1063) 29-SEP-80 10:31 PAGE 37 


|CVADAC.P11 29=SEP=80 09:34 DETERMINE IF MORE ADV11'S TO BE TESTED SEQ 0053 
| 1319 Hirai TO TYPE DECIMAL VALUE;; 
| 1320 ssIN R2 AS X.XX3; 
| 1321 011502 005702 DECTYP: ter R2 :TEST VALUE TO BE TYPED 
1322 011504 100003 . BPL POS 
1323 011506 104401 012103 TYPE »MINUS ; TYPE MINUS SIGN 
1324 011512 005402 NEG R 
1325 011514 020227 001747 POS: CMP R2,#999. 3>999. REPLACE IT WITH 999, 
1326 011520 003402 BLE OKAYD 
1327 011522 012702 001747 MOV #999, .R2 
1328 011526 105037 014622 OKAYD: CLRB ONES :CLEAR ONES 
1329 011532 105037 014621 CLRB TENS ‘CLEAR TENS 
1330 9011536 105037 614617 CLRB HUNS ;CLEAR HUNS 
1331 011542 005702 TESTR2: TST Re ;CONVERT VALUE TO A DECIMAL VALUE 
1332 011544 001424 BEQ TYPOUT 
1333 011546 005302 DEC R2 
1334 011550 105237 014622 INCB —ONES 
1335 011554 123727 014622 000012 CMPB = ONES, #10. 
1336 011562 001367 BNE TESTR2 
1337 011564 105037 014622 CLRB ONES 
1338 011570 105237 014621 INCB —sCTENS 
1339 011574 123727 014621 000012 CMPB Ss TNS, #10. 
1340 011602 001357 BNE TESTR2 
1341 011604 105037 014621 CLRB TENS 
1342 011610 105237 014617 INCB HUN 
1343 011614 000752 BR TESTR2 
1344 011616 152737 000060 014617 TYPOUT: BISB #60,HUNS ;PREPARE FOR TYPOUT 
1345 011624 152737 000060 014621 BISB #60, TENS 
1346 011632 152737 000060 014622 BISB  #60.ONES 
1347 011640 104401 014617 TYPE , HUNS : TYPE VALUE 
1348 011644 000002 RTI 
1349 011646 000000 vO: 0 ; TOLERANCE VALUES FOR FUNCTIONAL TESTS 
1350 011650 000002 V2: 2 
1351 011652 000004 V4: 4 
1352 011654 000012 vi2: 12 
1353 011656 000062 v50D: 50. 
1354 011660 000326 V326: 326 
1356 011662 000050 VNR: 40. ;.4 LSB,NORMAL LIMITS FOR SYSTEM 
1357 011664 000310 VNP: 200. 12 LSB. INTEGRATION AND FIELD USE ON SPEC TESTS 
1328 011666 000144 VSET: 100. 31 LSB 
1359 011670 000175 VLIN: 125. ‘1, 5 LSB 
1360 011672 100000 BITiS 
1362 011674 052777 000100 167242 AGATST: BIS #100,a$TKS 
1363 011702 000137 JMP a(PC)+ 
1364 011704 001644 AGTST: BEGIN 
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377 
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D OF PASS ROUTINE 
-SBTTL END OF PASS ROUTINE 


PUTT ITT iii iii titi iti t iii iri rrr rrr rrr rrr 
;* INCREMENT THE PASS NUMBER ($PASS) 
;*1F THERES A MONITOR GO TO IT 


;*1F THERE ISN'T 


SEOP: 


001202 


SEOPCT: 


SENDCT: . 


SENDAD: JS 


$DOAGN: 


SRTNAD: . 
000 S$ENULL: . 


JUMP TO AGATST 


$STSTNM 3;ZERO THE TEST NUMBER 

STIMES +3 ZERO THE NUMBER OF ITERATIONS 
$PASS ; INCREMENT THE PASS NUMBER 
#100000,$PASS ::DON' I ALLOW A NEG. NUMBER 
(PC)+ 3; LOOP? 


SDOAGN 7 YES 

press ARPES 7 RESTORE COUNTER 

it 4th ASCIZ STRING 
GET OVER THE ASCIZ 

215><12>/ENDPASS” *600D UNITS / 


GUNITS,-(SP) +s SAVE GUNITS FOR TYPEQUT 
O TYPE--BINARY ASCII 


a#42,R0 ier MONITOR ADDRESS 
$SDOAGN ;;BRANCH IF NO MONITOR 
>; CLEAR THE WORLD 
PC, (RO) ::G0 TO MONITOR 
4 ty ROOM 
SSACT11 
a(PC)+ 7 ;RETURN 
AGATST 
-1,-1,0 s NULL CHARACTER STRING 


SEQ 0054 


Leudusiabioasteiiibpasetuseianeinintsnsends 


pcnntpeeaiihongemteon - a a — ; 
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/CVADAC .P11 29-SEP-80 09:34 ASCII MESSAGES SEQ 0055 
1368 ASCII MESSAGES 


~SBTTL 
NOIMSG: .ASCIZ <15><12>/NOISE TEST/<15><12> 


| 1369 012042 005015 047516 051511 
| 012050 020105 042524 052123 
| 012056 005015 000 
4370 013061 018 051412 052105 SETMSG: .ASCIZ <15><12>/SETTLING TEST/<15><12> 
| 012066 046124 047111 020107 
| 013074 042594 052123 005015 
| 012102 000 
1371 012108 055 ~=—(000 MINUS: .BYTE 55,0 
1372 012105 077 ~—000 QUEST: “BYTE 77.0 
1373 012107 = 136=—Ss«101.=Ss«040 AMSG: «BYTE ~—-136,101,,40,40,0 
012112 040000 
1374 012116 136 —-103.-=S«040 CMSG: + —.BYTE 136,103, 40,40,0 
012117 -040~—s«000 
1375 013121 = 136—=——«107,—=Ss«1S MSG: BYTE -—-136, 107,15, 12,123,127,122,105,107,72,0 
012126 O12 123 ~~ «127 
012127 122,—S—«105-—SS—«*07 
012132 072 ~—=—=«000 
1376 912134 046049 041123 005015 LSBHSG: .ASCIZ / LSB/<15><12> 
1377 012143 055 020055 000 DASH: .ASCIZ /== / 
1378 012147 1 040524 042524 STATE: .ASCIZ /STATE== WIDTH/<15><12> 
012154 026655 053440 042111 
012162 044124 005015 00 
1379 012167 103 000110 CH: ASCIZ./CH/ 
1380 012172 020040 020060 000 SPACE: ‘ASCIZ / / 
1381 012177 040 051514 020102 LSB: :ASCIZ / LSB ON CH/ 
012204 047117 041440 000110 
1382 013212 051440 082105 046124 SETCH: .ASCIZ / SETTLING FROM CH/ 
012220 047111 020107 051106 
012226 046517 041440 000110 
1383 012234 040640 020124 000 ATMSG: .ASCIZ / AT / 
1364 012241 116 044517 042523 NOI: :ASCIZ /NOISE: / 
012246 020072 000 
1385 012251 040 047117 041440 CHAN: .ASCIZ / ON CHANNEL / 
012256 040510 047116 046105 
012264 000040 
1386 012266 020040 020060 047504 DONE: .ASCIZ / — DONE/<15><12> 
012274 042516 005015 000 
1387 012301 057 000 SLASH: .ASCIZ a/# 
1388 012303 040 020040 047440 OKMSG: :ASCIZ /  OK/<15><12> 
012310 006513 000012 
1389 012314 005015 054524 042520 CCHAN: .ASCIZ <15><12>/TYPE CHANNEL & CR: / 
012322 041440 040510 047116 
012330 046105 0230460 041440 
012336 035122 000040 = oe 
1390 012342 005015 054524 042520 SEL: sASCIZ <15><12>/TYPE ‘'O"' FOR GFFSET, ‘'G'' FOR GAIN & CR: / 
012350 021040 021117 043040 
012356 051117 047440 043106 
012364 042523 026124 021040 
012372 021107 043040 051117 
012400 043440 044501 020116 
012406 020046 051103 020072 
013414 000 
| 
| 


_ E 
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‘CVADAC.P11 29-SEP-80 09:34 ASCII MESSAGES SEQ 0056 


1392 5 015 040412 XADJ:  .ASCII <15><12>/ADJUST R15/ 
2 051525 020124 
: 6 


1393 047506 MOLSB: .ASCIZ / FOR 0.00 LSB ERROR/ 


1394 IGND: eASCII] = <15><12>/ INPUT A GROUND ON THE CHANNEL/ 


ao 
a 
Nm 
= 
a 
oO 
oooo COO OO 


041440 040510 04 


1395 005015 054524 042 CRwR: wASCIZ <15><12>/TYPE CR WHEN READY/<15><12> 


1396 044412 050116 IVOLT: .ASCIZ <15><12>/INPUT +5.115 VOLTS ON THE CHANNEL / 


NFEAOWAOMENEAO 
o oO 
= uw 
~N ~ 
Ft 
oO 
a] 

oO 
“ 
— 
o 
a 
oO 
o 
~ 
o 
“i 


NO 


e's 040510 047116 046105 


| 

1397 012607 5 040412 045104 YADJ: .ASCIZ <15><12>/ADJUST R3/ 
012614 051525 02012 
012622 000 

1398 012623 053 00 POSITV: .ASCIZ /+/ 
4 0 0 33 051105 ERMSG: .ASCIZ / **ERROR**/<15><12> 
0 

51 

0 44 
0 5 
0 
0 
0 
0 
0 
0 


2 
4 031522 
0 
1399 2 
2 006452 
1400 3 
0 
0 


050120 SKPMSG: .ASCIZ / SKIPPED STATE(S)/ 


051 
1401 2664 047040 051101 047522 NARMSG: .ASCIZ # NARROW (< 1/2 LSB) STATE(S)#<15><12> 


2706 
a we 024523 005015 
1402 2723 040 044527 042504 WIDMSG: .ASCIZ # WIDE (> 1 1/2 LSB) STATE(S)#<15><12> 
2 
bakes One es 051450 006451 
1403 012762 051440 040524 042524 OUTMSG: .ASCIZ / STATE(S) WIDER THAN ¢ | SB/ 


042 
013004 047101 031040 046040 
013012 041123 000 
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29-SEP-80 
ASCII MESSAGES SEQ 0057 
HAFMSG: .ASCIZ # STATE“WIDTH(S) QUTSIDE + OR - 1/2 LSB4 
MESR: -ASCIZ / LSB RMS, / 
MESP: eASCIZ / LSB PEAK AT / 
MEND : eASCII <15><12>/END OF LOGIC TESTS/ 
ONAD: eASCIZ / ON ADV11 AT / 
MSG50: .ASCIZ / ADV11'S FOUND/<15><12> 
MSG18: .ASCII <12><12><12>#+1/2 LSBA<K15><12><12><12><12>«12>«12><12><12>«12>«12>«12>«1 
eASCIZ = \=1/2LSB\ 
EVEN 
MSG20: .ASCIZ /DIFFERENTIAL LINEARITY:/<15><12> 
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15 
052116 
042525 
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046440 
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044522 
046101 
055 
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Q MSG16: 


MSG71: 


MSG21: 


LINEA: 


HEADS: 


ASCII MESSAGES SEQ 0058 
AM F STATE=WIDTH DISTRIBUTION/<15><12><12><12> 
SASCII /) # OF STATES/<12>«12>€12><12>€12>€12>«12><12>«12>€12><12><12><12><12>< 


ASCII 


-ASCIZ 


-ASCI2 


-ASCI2 


-ASCI2 


-ASCII 


/ STATE WIDTH (LSB)/<15> 
#0 1/2 1 1 172 2 
<15><12>/TYPE LETTER & CR FOR TEST: / 


/RELATIVE ACCURACY: /<15><12> 


/ LSB MAXIMUM AT / 


<15><12>/PRINT VALUES=-/ 


H 
MAINDEC-11-CVADA-C MACY11 30G(1063) 29-SEP-80 10:31 PAGE 43 
CVADAC.P11 29-SEP-80 09:34 ASCII MESSAGES SEQ 0059 


1426 ek 040 042 ASKCH: .ASCIZ / SET CHANNEL IN SWR LOW BYTE/<15><12> 


0 
013764 051127 046 
013772 041040 052 
014000 000012 
1427 014002 055033 000 CO: ASCIZ <33><132> 
| 1428 014005 033 015462 000110 C2: ASCIZ <33><62><33><110> ;CLEAR GRAPH MODE AND HOME 
1429 014012 000112 C3: eASCIZ <112> 
1430 014014 005015 043117 051506 MOFSET: .ASCIZ <15><12>/0FFSET =/ 
014022 052105 036440 —_000 
| 1431 914027 040 051514 020102 MLSB: .ASCIZ / LSB / 
| 014034 000 
1432 014035 040 052101 000040 MAT:  .ASCIZ 


/ AT / 
1433 014042 005015 042440 052116 METST: .ASCIZ <15><12>/ ENTERING TEST / 


1434 014064 033 061 101 BUFF1: .BYTE 33,61,101,61,111,62,114,41,60,45,63,51,66,55,71,61,74,110,41,40,112,0 


oO 
7 
m 
— 
oO 
Ww 
oO 
oa 
— 
oO 
N 
Ea 
_—_— © 
_— wy 


1 

0 

2 
014111 000 

1435 014112 033 061 101 BUFF2: .BYTE 33,61,101,47,111,61,104,50,65,44,62,110,40,40,102,0 
014115 047 111 061 
014120 104 050 065 
014123 044 062 110 
014126 040 040 102 
014131 000 
033 VTINIT: .BYTE 33,110,33,112,33,61,101,40,33,62,0 ;HOME & ERASE SCREEN & CLEAR GRA 

014135 112 033 061 
014140 101 040 033 


| 
1436 014132 033 110 


I 
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CVADAC.P11 29-SEP-80 09:34 ASCII MESSAGES SEQ 0060 


1438 014145 015 005012 042115 HEAD1: .ASCII <15><12><12>/"D-11-CVADA-C ADV11 DIAGNOSTIC/<15><12> 
014152 030455 026461 053103 
014160 042101 026501 020103 
014166 020040 040440 053104 
014174 030461 042040 040511 

| 014202 047107 051517 044524 
014210 006503 012 
| 1439 014213 012 035101 040440 sASCII <12>/A: AUTO TEST/ 

014220 052125 020117 042524 
014226 052123 

1440 014230 005015 035103 041440 eASCII =<15><12>/C: CALIBRATION/ 
014236 046101 041111 040522 
014244 044524 047117 

1441 014250 005015 035120 050040 eASCII =<15><12>/P: PRINT VALUES/ 
014256 044522 052116 053040 
014264 046101 042525 123 

1442 014271 015 046012 020072 eASCII = <15><12>/L: LOGIC/ 
014276 047514 044507 103 

1443 014303 015 053412 020072 eASCIZ <15><12>/W: WRAPAROUND/<15><12> 
014310 051127 050101 051101 
014316 052517 042116 005015 
014324 000 

1444 014325 123 040524 052524 EMI: eASCIZ = /STATUS REG. ERROR/ 
014332 020123 042522 027107 
014340 042440 051122 051117 
014346 000 

1445 014347 106 044501 042514 EM: -ASCIZ /FAILED TO INTERRUPT/ 
014354 020104 047524 044440 
014362 052116 051105 052522 
014370 052120 000 

1446 014373 125 042516 050130 EM3: -ASCIZ /UNEXPECTED INTERRUPT/ 
014400 041505 042524 020104 
014406 047111 042524 051122 
014414 050125 000124 

1447 014420 051105 047522 020122 EMA: -ASCIZ #ERROR ON A/D CHANNEL# 
014426 047117 040440 042057 
014434 041440 040510 047116 
014442 046105 000 
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ASCII MESSAGES 


DH1: 


DH2: 


DH3: 


ASC12 


-ASCI2 


-ASCIZ 


-BYTE 


: .BYTE 


SERRPC, 


7VERRPC STREG EXPECTED ACTUAL/ 


7JERRPC STREG CHANNEL NOMINAL TOLERANCE ACTUAL/ 


7ZERRPC STREG ACTUAL / 


OOowo 


STREG, $GDDAT, $BDDAT,0 


SERRPC,STREG, CHANL ,SGDDAT, SPREAD, $BDDAT ,0 


SERRPC ,STREG, $BDDAT ,0 


0 


SEQ 0061 


K 
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CVADAC.P11 29-SEP-80 09:34 TTY INPUT ROUTINE SEQ 0062 


1463 .SBTTL TTY INPUT ROUTINE 
| (2) SAREE EEE EEE EEE EERE EAA AR EERE E EERE EES 
1 (4) “ENABL LSB 
| (1) 
; .DSABL LSB 
wy 
(2) SRR RE EERE EEA ETE EERE AAA AEEE AERA RH REET ES 
| ) seTHIs: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
\ 3 *CALL: 
(1) thd RDCHR zs; INPUT A SINGLE CHARACTER FROM THE TTY 
| (1) al RETURN HERE s;CHARACTER IS ON THE STACK 
() te +:WITH PARITY BIT STRIPPED OFF 
( ; 
(1) 
(1) 014666 011646 SRDCHR: MOV (SP) ,-(SP) 3;PUSH DOWN THE PC 
(1) 014670 016666 000004 000002 MOV 4(SP),2(SP) >:SAVE THE PS 
| (1) 014676 105777 164242 1$: TSTB asTKs ::WAIT FOR 
(1) 014702 100375 BPL 1$ 7A CHARACTER 
(1) 014704 117766 164236 000004 MOVB  a$TKB,4(SP) TREAD THE TTY 
(1) 014712 042766 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 
(1) 014720 026627 000004 000023 CMP 4(SP),#23 =:1$ IT A CONTROL-S? 
(1) 014726 001013 BNE 3$ ::BRANCH IF NO 
(1) 014730 105777 164210 2$: TSTB = @STKS ::WAIT FOR A CHARACTER 
(1) 014734 100375 BPL 2$ : LOOP UNTIL ITS THERE 
(1) 014736 117746 164204 MOVB  a$TKB,-(SP) ::GET CHARACTER 
(1) 014742 042716 177600 BIC #°C177, (SP) *:MAKE IT 7-BIT ASCII 
(1) 014746 022627 000021 CMP (SP)+,# 3:18 IT A CONTROL-Q? 
(1) 014752 001366 BNE 2$ ::1F NOT DISCARD IT 
(1) 014754 000750 BR 1$ >:YES, RESUME 
(1) 014756 026627 000004 000140 3$: CMP 4(SP), #140 ::1$ [1 UPPER CASE? 
(1) 014764 002407 BLT 4$ ::BRANCH IF YES 
(1) 014766 026627 000004 000175 CMP 4(SP),#175 >:1$ IT A SPECIAL CHAR? 
(1) 014774 003003 BGT 4$ ::BRANCH IF YES 
(1) 014776 042766 000040 000004 BIC #40,4(SP) +:MAKE IT UPPER CASE 
(1) 015004 000002 4$: RTI ::G0 BACK TO USER 
(2) PAA ee eeeeAeee eee AAA eee rete rere terete eeenteetteeeeeeeeeeeeeeee 
1) seTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
s*CALL: 
(1) 3* RDLIN >; INPUT A STRING FROM THE TTY 
(1) 3 RETURN HERE S:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
cat st :; TERMINATOR WILL BE A BYTE OF ALL O'S 
(1) 
(1) 015006 010346 SRDLIN: MOV R3,-(SP) >: SAVE R3 
(1) 015010 012703 015114 1$: MOV #STTYIN,R3 >:GET ADDRESS 
(1) 015014 022703 015124 2$: CMP #STTYINGS. RB : :BUFFER FULL? 
(1) 015020 101405 BLOS 4$ : BR IF YES 
(1) 015022 104406 RDCHR Ae ONE CHARACTER FROM THE TTY 
(1) 015024 112613 MOVB  (SP)+#, (R3) :iGer CHARACTER 
(1) 015026 122713 000177 10$: CMPB ss #177, (3) :1$ IT A RUBOUT 
(1) 015032 001003 BNE 3$ 33 SKIP IF NOT 
(1) 015034 104401 001170 4$: TYPE $QUES :TYPE A ‘?° 
/ (41) 015040 ©000763 BR is >:CLEAR THE BUFFER AND LOOP 
CY) 015042 «111337 015112 3$: MOVB = (3), 98 >: ECHO THE CHARACTER 
(1) 015046 104401 015112 TYPE .% 
| 


| L. 3 
MAINDEC-11=CVADA-C MACY11 30G(1063) 29-SEP-80 10:31 PAGE 46-1 
CVADAC.P11 —- 29-SEP=80 09:34 TTY INPUT ROUTINE SEQ 0063 
(1) 015052 122723 000015 CMPB #15, (R3)+ i:CHECK FOR RETURN 
(1) 015056 001356 BNE 28 P IF NOT RETURN 
(1) 015060 105063 177777 CLRB == 1(R3) CLEAR RETURN. (THE 15) 
(1) 015064 104401 001172 TYPE —_, SLF TYPE A LINE FEED 
(1) 015070 012603 MOV (SP)+,R3 i RESTORE R3 
(1) 015072 011646 MOV (SP) ,=(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 015074 016666 000004 000002 MOV = &( SPS ,2( SP) i FIRST ASCII CHARACTER ON IT 
(1) 015102 012766 015114 00004 MOV = #STTYIN, 4(SP) 
(1) 015110 000002 RTI ; ;RETURN 
(1) 015112 9$: BYTE 0 STORAGE FOR ASCII CHAR. TO TYPE 
(1) 015113 000 BYTE 0 i; TERMINA 
(1) 015114 000010 STTYIN: .BLKB_ 8. RESERVE " BYTES FOR TTY INPUT 
(1) 015124 052536 005015 000 -SCNTLU: .ASCIZ /*U/<15><12> CONTROL ‘'U"' 
(1) 015131 136 006507 000012 $CNTLG: .ASCIZ /*G/<15><12> | CONTROL 'G’ 
(1) 015136 005015 053523 020122 SMSWR: .ASCIZ <15><12>/SWR = 
(1) 015144 020075 "000 
(1) 015147 060 047040 053505 SMNEW: .ASCIZ / NEW = 
(1) 015154 036440 000040 
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D AN OCTAL NUMBER FROM THE TTY 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


SERRA RRA RARER EAE AEA AEE A TERE AAAAE AERA ARETE KARAT EA ERE RAAT Te 

s*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

>*CHANGE IT TO BINARY. 
Ls 


RDOCT 
RETURN HERE 


(SP) ,-(S 


P) 
4(SP) ,2(SP) 


RO,-(SP) 
R1,-(SP) 
R2,-(SP) 


(SP)+,RO 
R1 


R2 
(RO) +,=(SP) 


#*C7, (SP) 
(SP)+,R1 
2$ 

(SP)+ 
R1,12(SP) 
R2,$HIOCT 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


0 


;;READ AN OCTAL NUMBER 
;;LOW ORDER BITS ARE ON TOP OF THE STACK 
;;HIGH ORDER BITS ARE IN $HIOCT 


+ +PROVIDE Bay FOR THE 


‘TREAD AN ASCIZ LIN 
;:GET ADDRESS OF 1ST CHARACTER 
;;CLEAR DATA WORD 


:;PICKUP THIS CHARACTER 
sc1Ff ZERO GET O 


3;STRIP THE ASCII JUNK 
+ ADD IN THIS DIGIT 


LOOP 
+: CLEAN TERMINATOR FROM STACK 
: SAVE THE RESULT 


73POP STACK INTO R2 
3;POP STACK INTO R1 
STURN STACK INTO RO 


ETU 
HIGH ORDER BITS GO HERE 


SEQ 0064 


Sa ler Reha ernstinadetntts 
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1467 .SBTTL SCOPE HANDLER ROUTINE 

| (2) SRR E EATER ARATE TEAR AE AAA EREAEE EARTH ATAH EATER 

| =) SSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(1) :*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) =*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
(1) **THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) + *SW14=1 LOOP ON TEST 
(1) :*SWi1=1 INHIBIT ITERATIONS 

; *SWO9=1 LOOP ON ERROR 

eet + #SWOB=1 LOOP ON TEST IN SWR<7:0> 
(1) *CALL 
3 ;* SCOPE ::SCOPE=I0T 
(1) 015262 SSCOPE: 
(1) 015262 032777 040000 163650 1$: BIT #BIT14,aSWR : LOOP ON PRESENT TEST? 
(1) 015270 001114 BNE SOVER YES IF SW14=1 
(1) :#HMHASTART OF CODE FOR THE XOR TESTERMMAMA 
(1) 015272 000416 $XTSTR: BR £4 i31F RUNNING ON THE "'XOR'’ TESTER CHANGE 
(1) ‘THIS INSTRUCTION TO A "'NOP’' (NOP=240) 
(1) 015274 013746 000004 MOV a#ERRVEC,-(SP) i} SAVE THE CONTENTS OF THE ERROR VECTOR 
(1) 015300 012737 015320 000004 MOV #5$, AMERRVEC :3SET FOR TIMEOU 
(1) 015306 005737 177060 TST = a#177060 TIME. OUT_ON XOR? 
(1) 015312 012637 000004 MOV (SP) +, a#ERRVEC : :RESTORE THE ERROR VECTOR 
(1) 015316 000463 BR $SVLAD :GO TO THE NEXT TEST 
(1) 015320 022626 5$: CMP (SP)+,(SP)+ *:CLEAR THE STACK AFTER A TIME OUT 
(1) 015322 012637 000004 MOV (SP)+,QWERRVEC ;;RESTORE THE ERROR VECTOR 
(1) 015326 000423 BR 7$ LOOP ON THE PRESENT TEST 
(1) 015330 6$:;M#MAMEND OF CODE FOR THE HOR ‘festenenens 
(1) 015330 032777 000400 163602 BIT #B1T08,aSWR LOOP ON SPEC. TEST? 
(1) 015336 001404 BEQ 2$ F NO 
(1) 015340 127737 163574 001102 CMPB Ss @SWR, STSTNM 3I0N THE RIGHT TEST? SwWR<7:0> 
(1) 015346 001465 BEQ SOVER ‘BR IF YES 
(1) 015350 105737 001103 2$: TSTB = SERFLG 3 HAS AN ERROR OCCURRED? 
(1) 015354 001421 BEQ 3$ N 
(1) 015356 123737 001115 001103 CMPB $ERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 015364 101015 BHI 3$ ::BR IF NO 
(1) 015366 032777 001000 163544 BIT #B1T09,aSWR LOOP ON ERROR? 
(1) 015374 001404 BEQ 4$ 
(1) 015376 013737 001110 001106 7s: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
(1) 015404 000446 BR SOVER 
(1) 015406 105037 001103 4$: CLRB = SERFLG ::7ERO THE ERROR FLAG 
(1) 015412 005037 001160 CLR STIMES *:CLEAR THE NUMBER OF 1 TERAT 1ONS TO MAKE 
(1) 015416 000415 BR 1$ >:ESCAPE TO THE NEXT TEST 
(1) 015420 032777 004000 163512 38: BIT #B1T11,aSWR >: INHIBIT ITERATIONS? 
(1) 015426 001011 BNE 1$ ::BR IF YES 
(1) 015430 005737 001202 TST SPASS ii1F FIRST PASS OF PROGRAM 
(1) 015434 001406 BEQ 1$ INHIBIT ITERATIONS | 
(1) 015436 005237 001104 INC SICNT *: INCREMENT ITERATION COUN 
(1) 015442 023737 001160 001104 CMP STIMES,SICNT >: CHECK THE NUMBER OF ITERATIONS MADE 
(1) 015456 002024 BGE SOVER ::BR IF MORE ITERATION REQUIRED 
(1) 015452 012737 000001 001104 15: MOV #1, $ICNT : FREINITIALIZE THE ITERATION COUNTER 
(1) 015460 013737 015536 001160 MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 

| (1) 015466 105237 001102 SSVLAD: INCB $TSTNM 3 COUNT TEST NUMBERS 

| (1) 015472 113737 001102 001200 MOVB $TSTNM,STESIN ;:SET TEST NUMBER IN APT MAILBOX 

| (1) 015500 011637 001106 MOV (SP), SLPADR [:SAVE SCOPE LOOP ADDRESS 


SEQ 0065 
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CVADAC.P11 29-SEP-80 09:34 SCOPE HANDLER ROUTINE SEQ 0066 
/ = (1) 015504 011637 001110 MOV (SP), SLPERR ; 3s SAVE ERROR LOOP ADDRESS 
| ©) 015510 005037 001162 CLR SESCA :CLEAR THE ESCAPE FROM ERROR ADDRESS 
/ (1) 015514 112737 000001 001115 MOVB #1 SERA AX *:ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 015522 013777 001102 163412 $OVER: MOV STSTNM,Q@DISPLAY ::DISPLAY TEST NUMBER 
(1) 015530 013716 001106 MOV $LPADR, (SP) :;FUDGE RETURN ADDRESS 
(1) 015534 000002 RTI tiFIXES PS 
(1) 015536 003720 $MXCNT: 2000. :;MAX. NUMBER OF ITERATIONS 
1668 .SBTTL ERROR HANDLER ROUTINE 
(2) SPREE RARER ERRATA EEE E EER EA ARE ARAAAAAEEEAAEAAEHARRERAAR EE 
(1) :*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) ;*SAVE THE ERROR ITEM murees AND THE ADDRESS OF THE ERROR CALL 
(1) :*AND GO TO SERRTYP ON ERRO 
(1) :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) :*SW15=1 HALT ON ERROR 
(1) 7*SW13=1 INHIBIT ERROR TYPEOUTS 
(1) :*Sw10=1 BELL ON ERROR 
(1) 7*Sw09=1 LOOP ON ERROR 
(1) >*CALL 
(1) ERROR N :;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 015540 $ERROR: 
(3) 015540 043737 001440 001436 BIC TSTBIT,GUNITS 
(1) 015546 105237 001103 7$: INCB SERFLG i5SET THE ERROR FLAG 
(1) 015552 001775 BEQ 7$ :DON'T LET THE FLAG GO TO ZERO 
(1) 015554 012777 001102 163360 MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 015562 032777 002000 163350 BIT #B1T10,aSwR :;BELL ON ERROR? 
(1) 015570 001402 BEQ 1$ >3NO - SKIP 
(1) 015572 104401 001164 TYPE , SBELL > ;RING BELL 
(1) 015576 005237 001112 1$: INC SERTTL :;COUNT THE NUMBER OF ERRORS 
(1) 015602 011637 001116 MOV (SP) ,SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
(1) 015606 162737 000002 001116 SUB #2,SERRPC 
(1) 015614 117737 163276 001114 | MOVB @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) 015622 032777 020000 163310 BIT #BIT13,aSwR SE SKIP TYPEOUT IF SET 
(1) 015630 001004 BNE 20$ ::SKIP TYPEOUTS 
(1) 015632 004737 015742 JSR PC, SERRTYP ::G0 TO USER ERROR ROUTINE 
(1) 015636 104401 001171 TYPE »SCRLF 
(1) 015642 208: 
(1) 015642 122737 000001 001214 CMPB #APTENV, SENV RUNNING IN APT MODE 
(1) 015650 001007 BNE 2$ 7;NO,SKIP APT ERROR REPORT 
(1) 015652 113737 001114 015664 MOVB SITERB. 218 ::SET ITEM NUMBER AS ERROR NUMBER 
(1) 015660 004737 016376 JSR PC,SATY ::REPORT FATAL ERROR TO APT 
(1) 015 000 21$: -BYTE 0O 
(1) 015665 000 -BYTE 0 
(1) 0156 000777 22%: BR 2c$ :;APT ERROR LOOP 
(1) 015670 005777 163244 2$: TST aswR ::HALT ON ERROR 
(1) 015674 100001 BPL 3$ :;SKIP IF CONTINUE 
(1) 015676 000000 HALT : HALT ON ERROR! 
(1) 0157 032777 001000 163232 3%: BIT #B1T09,aSwR ;s LOOP ON ERROR SWITCH SET? 
(1) 015706 001402 BEQ 4$ BR IF NO 
| (1) 015710 013716 001110 MOV SLPERR, (SP) S:FUDGE RETURN FOR LOOPING 
(1) 015714 005737 001162 4$: TST SESCAPE >; CHECK FOR AN ESCAPE ADDRESS 
(1) 015720 001402 BEQ 5$ ::BR IF NONE 
1? Ot ares 013716 001162 - MOV SESCAPE, (SP) : FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 015726 022737 012022 000042 CMP #SENDAD, 0842 :;ACT=-11 AUTO-ACCEPT? 


| C6 
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|CVADAC .P11 29-SEP-80 09:3 RROR HANDLER ROUTINE SEQ 0067 
| (1) 015734 001001 BNE 6$ :;BRANCH IF NO 
(1) 015736 000000 HALT : YES 
(1) 0615740 6$: 
(1) 015740 000002 RTI ; ;RETURN 
"ar .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) SRR RRA EAER AREA AREER EAA AREER E RAAT E AAR EAA E TAREE E RATER 
\ (1) “STHIS ROUTINE yee? THE “ITEM CONTROL BYTE'’ (SITEMB) TO DETERMINE WHICH 
| (1) :*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'’ (SERRTB), 
a :*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 015742 SERRTYP: 
(1) 015742 104401 001171 TYPE , SCRLF Be RETURN’ & ‘LINE FEED"’ 
(1) 015746 010046 MOV RO,-(SP) 
(1) 015750 005000 CLR RO SST CRUP THE ITEM INDEX 
(1) 015752 153700 001114 BISB av$1TEMB,RO 
(1) 015756 001004 . BNE 1$ 3: ;1F ITEM NUMBER IS ZERO, JUST 
(1) 7; TYPE THE PC OF THE ER ROR 
(2) 015760 013746 001116 MOV SERRPC,-(SP) ;;SAVE SERRPC FOR TYPEOUT 
(2) ’ ;;ERROR ADDRESS 
(2) 015764 104402 TYPOC es TYPE=-OCTAL ASCIICALL DIGITS) 
(1) 015766 000426 BR 6$ T OUT 
(1) 015770 005300 1$: DEC RO ; s ADJUST THE INDEX SO THAT IT WILL 
(1) 015772 006300 ASL RO 33 WORK FOR THE ERROR TABLE 
(1) 015774 006300 ASL RO 
(1) 015776 006300 ASL RO 
(1) 016000 062700 001256 ADD #SERRTB,RO 3 ;FORM TABLE POINTER 
(1) 016004 012037 016014 MOV (RO)+,2$ :;PICKUP ‘‘ERROR MESSAGE’ POINTER 
(1) 016010 001404 BEQ 3$ Ef ot TYPEOUT IF NO POINTER 
(1) 016012 104401 TYPE :; TYPE THE ‘‘ERROR MESSAGE"’ 
(1) 016014 000000 2$: WORD 0 37 "ERROR MESSAGE"’ POINTER a HER E 
(1) 016016 104401 001171 TYPE , SCRLF fh ror | RETURN’ & ‘LINE FEED’ 
(1) 016022 012037 016032 3$: MOV (RO)+,4$ : PICKUP ‘‘DATA HEADER’ SINTER 
(1) 016026 001404 BEQ 5$ 3; SKIP TYPEOUT IF 0 
(1) 016030 104401 TYPE ie TYPE THE ‘DATA HEADER" 
(1) 016032 000000 4$: WORD 0 :7''DATA HEADER’ POINTER GOES HERE 
(1) 016034 104401 001171 TYPE , ScRLF 33 ""CARRIAGE RETURN’ & ‘LINE FEED’ 
(1) 016040 011000 5$: MOV (RO) ,RO :;PICKUP ‘DATA TABLE’ POINTER 
(1) 016042 001004 BNE 7$ ::G0 TYPE THE DATA 
(1) 016044 012600 6$: MOV (SP)+,RO ; RESTORE RO 
(1) 016046 104401 001171 TYPE , SCRLF 3 SORA LAGS RETURN’ & "LINE FEED’ 
(1) 016052 000207 RTS PC 3; RETURN 
(1) 016054 7$: 
(2) 016054 013046 MOV a(rR0)+,-(SP) ::SAVE a(RO)+ FOR TYPEOUT 
(2) 016056 104402 TYPOC 3:GO0 TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 016060 005710 TST (RO) 3:18 THERE ANOTHER NUMBER? 
(1) 016062 001770 BEQ 6$ ;;BR IF NO 
(1) 016064 104401 016072 TYPE 8% sr TYPE TWO(2) SPACES 
(1) 016070 000771 BR 7$ > SLOOP 
(1) 016072 020040 000 8$: eASCIZ / / 3:TWO(2) SPACES 
(1) 016076 EVEN 


D 
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| 471 .SBTTL TYPE ROUTINE 

(2) RRR RE RA EAE EEE EET EERE REAR AAR ARATE RATA ARETE 

/ a) “ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

/ :*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
(1) *NOTE1: S$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) : *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
CW) ;*NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

°a 
(1) *CALL 
(1) 1) USING A TRAP INSTRUCTION 
MD) a YPE —_,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te 
(1) ie TYPE 
(1) ie ME SADR 
i : 
(1) 016076 105737 001157 $TYPE: TSTB  $TPFLG ::1$ THERE A TERMINAL? 
(1) 016102 100002 BPL 1$ ::BR IF YES 
(1) 016104 000000 HALT ::HALT HERE IF NO TERMINAL 
(1) 016106 000430 BR 3$ : LEAVE 
(1) 016110 010046 1$: MOV RO,-(SP) SAVE RO 
(1) 016112 017600 000002 MOV a2 (SP) ,RO ::GET ADDRESS OF ASCIZ STRING 
(1) 016116 122737 000001 001214 CMPB ss WAPTENV, SENV i RUNNING IN APT MODE 
(1) 016124 001011 BNE 62$ {NO.GO CHECK FOR APT CONSOLE 
(1) 016126 132737 000100 001215 BITB  #APTSPOOL,SENVM :;SPOOL MESSAGE T 
(1) 016134 001405 BEQ 62$ ::NO,GO CHECK FOR ° CONSOL é 
(1) 016136 010037 016146 MOV RO,61$ ::SETUP MESSAGE ADDRESS FOR APT 
(1) 016142 004737 016366 JSR PC. SATY3 :;SPOOL MESSAGE TO A 
(1) 016146 000000 61$:  .WORD 0 :MESSAGE ADDRESS 
(1) 016150 132737 000040 001215 62$:  BITB  #APTCSUP,SENVM :3APT CONSOLE SUPPRESSED 
(1) 016156 001003 BNE 60$ YES,SKIP TYPE OUT 
(1) 016160 112046 28: MOVB = (RO) +, = (SP) ;:PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 016162 001005 BNE 4$ ‘BR IF IT ISN'T THE TERMINATOR 
(1) 016164 005726 TST (SP)+ IF TERMINATOR POP IT OFF THE STACK 
(1) 016166 012600 60$: MOV (SP)+,RO ::RESTORE RO 
(1) 016170 062716 000002 3$: ADD #2,(SP) STADJUST RETURN PC 
(1) 016174 000002 RTI ::RETURN 
(1) 016176 122716 000011 4S: CMPB Ss #HT, (SP) >:BRANCH IF <HT> 
(1) 016202 001430 BEQ 8$ 
(1) 016204 122716 000200 CMPB Ss #CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
(1) 016210 001006 BNE 5 
(1) 016212 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
(1) 016214 104401 TYPE TYPE A CR AND L 
(1) 016216 001171 $CRLF 
(1) 016220 105037 016354 CLRB | $CHARCNT ::CLEAR CHARACTER COUNT 
(1) 016224 000755 BR 2$ T:GET NEXT CHARACTER | 
(1) 016226 004737 016310 5$: JSR PC ,STYPEC ::GO TYPE THIS CHARACTER 
(1) 016232 123726 001156 6$: CHPB SFILLC,(SP)* 18 IT TIME FOR FILLER CHARS.? 
(1) 016236 001350 BNE 2$ :1F NO GO GET NEXT CHA 
(1) 016240 013746 001154 MOV SNULL ,-(SP) ::GET # OF FILLER CHARS. "NEEDED 
(1) :;AND THE NULL CHAR, 
(1) 016244 105366 000001 7$: DECB = s«1(SP) ;;DOES A NULL NEED TO BE TYPED? 
(1) 016250 002770 BLT 6$ :BR IF NO=-6O POP THE NULL OFF OF STACK 
(1) 016252 004737 016310 JSR PC ,STYPEC 7:60 TYPE A NULL 
| 1) 016256 105357 016354 DECB © SCHARCNT ::D0 NOT COUNT AS A COUNT 
| 
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016262 000770 BR 7$ ;; LOOP 


sHORIZONTAL TAB PROCESSOR 
016264 112716 000040 8$: MOVB os #"_-, (SP) ; REPLACE TAB WITH SPACE 
016270 004737 016310 9$: JSR PC, $TYPEC ‘TYPE A SPACE 
016274 132737 000067 016354 BITB #7. SCHARCNT : |BRANCH IF NOT AT 
016302 001372 BNE $ AB STOP 
016304 005726 TST (SP)+ ::POP SPACE OFF STACK 
016306 000724 BR 2$ :GET NEXT CHARACTER 
016310 105777 162634 STYPEC: TSTB a$TPS ::WAIT UNTIL PRINTER IS READY 
016314 100375 BPL S$TYPEC 
016316 116677 000002 162626 MOVB  2(SP),a$TPB ;:LOAD CHAR TO BE TYPED INTO DATA REG. 
016324 122766 000015 000002 CMPB es CR, 2( SP) ‘IS CHARACTER A CARRIAGE RETURN? 
016332 001003 BNE 1$ ::BRANCH IF NO 
016334 105037 016354 CLRB $CHARCNT S:YES-=CLEAR CHARACTER COUNT 
016340 000406 BR STYPEX EXIT 
016342 122766 000012 000002 1$: CMPB ss LF, 2(SP) ::1S CHARACTER A LINE FEED? 
016350 001402 BEQ $TYPEX ::BRANCH IF YES 
016352 105227 INCB (PC) + >: COUNT THE CHARACTER 
016354 000000 $CHARCNT:.WORD 0 +: CHARACTER COUNT STORAGE 
016356 000207 STYPEX: RTS PC 


-SBTTL APT COMMUNICATIONS ROUTINE 


SRR RRA EEA EAA EEA REAR AEE ER ERAT TRAE EEE 


LPP PPL ee le em mm me mm om Em ee eee an ent en a a ele ee a ee a na ee ee ee a 
i i i i i i ti i i i i i itt ititittititiitiitit 
So 
—_ 
o 
oa 


016360 112737 000001 016624 S$ATY1: MOVB #1,SFFLG 3;TO REPORT FATAL ERROR 
112737 000001 016622 $ATY3: MOVB #1,SMFLG 3;TO0 TYPE A MESSAGE 
016374 000403 BR SATYC 
Brcuae 112737 000001 016624 be} MOVB #1,SFFLG 3;TO ONLY REPORT FATAL ERROR 
YC: 
016404 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
016406 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 
016410 105737 016622 TSTB SMFLG . + SHOULD - TYPE A MESSAGE? 
016414 001450 BEC 5$ F NOT: BR 
016416 122737 000001 001214 CMPB #APTENV,SENV ; ;OPERP’ "ING UNDER APT? 
016424 001031 BNE 3$ ‘IF NUT: BR 
016426 132737 000100 001215 BITB _#APTSPOOL,SENVM i SHMULD “SPOOL MESSAGES? 
016434 001425 BEQ 3$ NOT: BR 
016436 017600 000004 MOV a4(SP),RO GET MESSAGE ADDR. 
016442 062766 000002 000004 ADD #2,4(SP) ;;BUMP RETURN ADDR. 
016450 005737 001174 1$: TST SMSGTYPE : SEE IF DONE W/ LAST XMISSION? 
016454 001375 BNE 1$ S:]F NOT: WAIT 
016456 010037 001210 MOV RO, $MSGAD 3 PUT ADDR IN MAILBOX 
016462 105720 2$: TSTB = (RO) + ::FIND END OF MESSAGE 
016464 001376 BNE 2$ 
016466 163700 001210 SUB SMSGAD RO :;SUB START OF MESSAGE 
016472 006200 ASR RO eet MESSAGE hh IN WORDS 
016474 010037 001212 MOV RO, SMSGLGT T LENGTH IN MAILBOX 
016500 012737 000004 001174 MOV #4. SMSGTYPE H+ MA APT TO TAKE MSG. 
016506 000413 BR $ 
016510 017637 000004 016534 3$: MOV a4(SP),4$ ::PUT MSG ADDR IN JSR LINKAGE 
016516 062766 000002 000004 ADD #2,4(SP) UMP RETURN ADDRESS- 
3) 016524 013746 177776 MOV 177776, -(SP) :;PUSH 145 9% ON STACK 
1) 016530 004737 016076 JSR PC ,STYPE “:CALL TYPE MACRO 
1) 016534 000000 4$ WORD 0 


hasnt ieee tana : eT 
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CVADAC.P11 29-SEP-80 09:34 APT COMMUNICATIONS ROUTINE SEQ 0070 
(1) 016536 5$: 
(1) 016536 105737 016624 10$: TSTB ss SFFLG ;;SHOULD REPORT FATAL ERROR? 
| (1) 016542 »=—001416 BEQ 12$ F NOT: BR 
(1) 016544 «005737 «001214 TST SENV ; | RUNNING UNDER APT? 
(1) 016550 = 001413 BEQ 12$ NOT: @R 
| = (1) (016552) «005737 «001174 118: TST SUSGTYPE j SFINISHED LAST MESSAGE? 
(1) 016556 001375 BNE 11$ :;1F NOT: WAIT 
| (1) 016560 017637 000004 001176 MOV Q4(SP),SFATAL  ;;GET ERROR A 
| (1) 016566 §=062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
(1) 016574 005237 001174 INC SMSGTYPE ;: TELL abt TO TAKE ERROR 
(1) 016600 105037 016624 12$: CLRB so SFFLG 7;CLEAR FATAL FLAG 
/ (1) 016604 105037 016623 CLRB = $LFLG 7:CLEAR LOG FLAG 
/ (1) 016610 105037 016622 CLRB = $MFLG ;:CLEAR MESSAGE FLAG 
| (3) 016614 =—012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
(3) 016616 012600 MOV (SP)+,RO ;;POP STACK INTO RO 
(1) 016620 000207 RTS PC ; ;RETURN 
(1) 016622 000 SMFLG: .BYTE 0 ;;MESSG. FLAG 
(i) 016623 000 SLFLG: .BYTE 0 ;;L0G FLAG 
| (1) 016624 000 SFFLG: .BYTE 0 ; FATAL FLAG 
(1) 016626 EVEN 
(1) 000200 APTSIZE=200 
(1) 000001 APTENV=001 
(1) 000100 APTSPOOL=100 
(1) 000040 APTCSUP=040 
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000000 


000002 
000001 


000006 
000005 


017053 
000006 


000012 


017052 
177770 


G 
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NARY TO OCTAL (ASCI!) AND TYPE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Pee ee eee eeeenedeeeeeeeedeeeettrrtaeeeeteeeeetereeneeeeeeneees 
y*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DiGIT 
S*OCTAL (ASCII) NUMBER AND TYPE IT. 


:*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE | 


s*CALL: 

te MOV NUM, =-(SP) ; ;NUMBER TO BE TYPED 

:* TYPOS ::;CALL FOR TYPEOUT 

:* .BYTE N s:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
:* .BYTE ™ :7M=1 OR 0 

st zy, 1=TYPE LEADING ZEROS 

;* 3; 0=SUPPRESS LEADING ZEROS 


:* 
:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


*CALL: 
;* MOV NUM,=-(SP) ; ;NUMBER TO BE TYPED 
‘* TYPON 3;CALL FOR TYPEOUT 
jsStyPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
>*CALL: 
te MOV NUM, =(SP) ;;NUMBER TO BE TYPED 
3* TYPOC ;;CALL FOR TYPEOUT 
$TYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
MOVB 1(SP) ,SOFILL ;;LOAD ZERO FILi SWITCH 
MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) : ADJUST RETURN ADDRESS 
BR STYPON 
$TYPOC: MOVB #1,S0OF ILL 3;SET THE ZERO FILL SWITCH 
MOVB #6,$0MODE+1 :;SET FOR SIX(6) DIGITS 
STYPON: MOVB #5,S0CNT 3;SET THE ITERATION COUNT 
MOV R3,-(SP) 7; SAVE R3 
MOV R4,-(SP) s SAVE R4 
MOV R5S,-(SP) 7; SAVE RS 
“$y SOMODE+1, R4 ::GET THE NUMBER OF DIGITS T) TYPE 
N 
ADD oe. R4 :;SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4. SOMODE ;;SAVE IT FOR USE 
MOVB SOFILL,R4 ::GET THE ZERO FILL SWITCH 
MOV 12(SP),R5 3;PICKUP THE INPUT NUMBER 
CLR R3 3;CLEAR THE OUTPUT WORD 
1$: ROL R5 :sROTATE MSB INTO ‘'C’’ 
BR 3$ 7G0 DO MSB 
23: ROL R5 >: FORM THIS DIGIT 
ROL R5 
ROL RS 
MOV R5,R5 
3$: ROL R3 3;GET LSB OF THIS Sedu 
DECB SOMODE +s TYPE THIS DIGIT? 
BPL 7 IF NO 
BIC #177770,R3 GET Rie OF JUNK 
BNE 4% s; TEST FOR 0 
TST R4 ie ae THIS 0? 


BEQ 5$ R IF YES 


SEG 0071 


—.,.,£. ssn 


os 
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CVADAC.P11 29-SEP-80 09:34 NARY TO OCTAL (ASCI!) AND TYPE SEQ 0072 

(1) 016770 005204 4$: INC RG :sDON'T SUPPRESS ANYMORE 0'S 

(1) 016772 052703 000060 BIS #°O,R3 ;iMAKE THIS DIGIT ASCII 

(1) 016776 052703 000040 5$: BIS #' 'R3 “MAKE ASCII IF NOT ALREADY 

(1) 017002 110337 017046 MOVB ~—st3, BS +: SAVE FOR TYPING 

(1) 017006 104401 017046 TYPE =, 88 +:G0 TYPE THIS DIGIT 

(1) 017012 105337 017050 7$: DECB $OCNT ‘: COUNT BY 1 

(1) 017016 003347 BGT 2$ ;3BR IF MORE TO DO 

(1) 017020 002402 BLT 6$ ‘BR IF DONE 

(1) 017022 005204 INC RG INSURE LAST DIGIT 1s" T A BLANK 

(1) 017024 000744 BR 2$ ::G0 DO THE LAST DIGIT 

(1) 017026 012605 6$: MOV (SP)+,R5 :SRESTORE RS 

(1) 017030 012604 MOV (SP) +_RG SRESTORE RG 

(1) 017032 012603 MOV (SP)+.R3 RESTORE R3 

(1) 017034 016666 000002 000004 MOV 2(SP).4(SP) !SET THE STACK FOR RETURNING 

(1) 017042 012616 MOV (SP)+, (SP) 

(1) 017044 000002 RTI + s RETURN 

(1) 017046 000 8$ BYTE 0 ‘© STORAGE FOR ASCII DIGIT 

(1) 017047 000 "BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 

(1) 017050 000 SOCNT: BYTE 0 S:OCTAL DIGIT COUNTER 

(1) 017051 000 SOFILL: .BYTE 0 i$ ZERO FILL SWITCH 

(1) 017052 000000 $OMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 
1475 .SBTTL BINARY TO ASCII AND TYPE ROUTINE 

(2) SRR AEA REE AEA TEER EE RAKE RARAKE RAAT 

(1) “STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
(1) : *BINARY-ASCI] NUMBER AND TYPE IT. 

(1) S*CALL: 

(1) : MOV NUMBER, - (SP) ; :NUMBER TO BE TYPED 

Hs 7* TYPBN 3; TYPE IT 

(1) 017054 010146 $TYPBN: MOV R1,-(SP) ::SAVE R1 ON THE STACK 

(1) 017056 016601 000006 MOV 6(SP),R1 : GET THE INPUT NUMBER 

(1) 017062 000261 SEC T7SET “'C'" SO CAN KEEP TRACK OF THE NUMBER OF BITS 
(1) 017064 112737 000060 017126 18: MOVB  #'0,$BIN :3S61 CHARACTER TO AN ASCII “'0"’. 

(1) 017072 006101 ROL R1 ‘GET THIS BIT 

(1) 017074 001406 BEQ 2$ : : DONE? 

(1) 017076 105537 017126 ADCB = $BIN ‘!NO==SET THE CHARACTER EQUAL TO THIS BIT 
(1) 017102 104401 017126 TYPE  ,$BIN ::G60 TYPE THIS B11 

(1) 017106 000241 CLC “CLEAR ''C’’ SO CAN KEEP TRACK OF BITS 
(1) 017110 000765 BR 1$ ::G0 DO THE NEXT BIT 

(1) 017112 012601 2$: MOV (SP)+,R1 *:POP THE STACK INTO R1 

(1) 017114 016666 000002 000004 MOV 2(SP).4(SP) S ADJUST THE STACK 

(1) 017122 012616 MOV (SP)+. (SP) 

(1) 017124 000002 RTI : RETURN TO USER 

(1) 017126 000 000 $BIN: .BYTE 0,0 <= STORAGE FOR ASCII CHAR. AND TERMINATOR 
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C.P11 


017152 
017154 
017162 


017164 


017176 


017200 


017212 


017214 
020034 
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010046 
016600 000002 
005740 
111000 
006300 
016000 017164 
000200 


011646 
016666 000004 000002 
000002 


017152 


017054 


014666 


011502 


000310 
010000 
000001 


I 
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TRAP DECODER SEQ 0073 


-SBTTL TRAP DECODER 


PECTIC I Titi t tii t iit i tii tiie r rer rrr s, 
;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
3*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO TO THAT ROUTINE. 


$TRAP: MOV RO,-(SP) 7; SAVE RO 
MOV 2(SP),RO ;:GET TRAP ADDRESS 
TST =(RO) ;;BACKUP BY 2 
MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 
ASL RO ;POSITION FOR INDEXING 
MOV $TRPAD(RO),RO ;; INDEX TO TABLE 
RTS RO 3:60 TO ROUTINE 


:; THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


$TRAP2: MOV (SP) ,=(SP) 3:MOVE THE PC DOWN 
MOV 4(SP) ,2(SP) ;;MOVE THE PSW DOWN 


RTI >:RESTORE THE PSwW 
.SBTTL TRAP TABLE 


z*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3*BY THE ‘‘TRAP’’ INSTRUCTION. 


: ROUTINE 
$TRPAD: .WORD $TRAP2 
$TYPE ;;CALL=TYPt TRAP+1(104401) TTY TYPEOUT ROUTINE 


$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPBN ;;CALL=TYPBN TRAP+5(104405) TYPE BINARY (ASCII) NUMBER 


SRDCHR ;;CALL=RDCHR TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 
SROLIN ;;CALL=RDLIN TRAP+7(104407) TTY TYPEIN STRING ROUTINE 
$SRDOCT ;;CALL=RDOCT arts oby erty fs READ AN OCTAL NUMBER FROM TTY 
TEST >; CALL=CHECK TRAP+11(1044 
TESTIT 5; CALL=CHKIT TRAP+12(104 a2) 
; DECTYP ;;CALL=TYPOC TRAP+13(104413) 

-EVEN 

DIST: -BLKW 200. STATE-WIDTH DISTRIBUTION 

on -BLKW 4096. ;BUFFER AREA 

- END 
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/ACDW1 
|ACDW2 
/ACPUOP 
ADBUF F 
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oo 
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Ww 
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170400 
000000 
000000 
000000 
001322 


000000 


00200 
000100 
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CROSS REFERENCE TABLE -= USER SYMBOLS 


77 78 79 


322 358 374 384 395 421 447 
555 734 78% 803+ 805* 844+ 870* 


802* 804* 918 
780" 13644 

81 
1472@ 


518¢ 


922 


SEQ 0074 


550 
928 
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|AROUND 007640 10108 
ASKCH 013743 14268 
ASWREG= 000000 38 
ATESTN= 000000 38 
ATMSG 012234 841 
AUNIT = 000000 38 
|AUSWR = 000000 38 
AVECT1= 100400 350 
AVECT2= 000000 33 
BASEBR 001326 814 
BASECH 001342 870 
BEGIN 001644 31 
BEGINA 006122 212 
BEGINC 005420 515 
BEGINL 002670 570e 
BEGINP 005674 518 
BEGINW 006204 324 
BEGIN2 001652 33 
BEGL 006064 199 
BEG2 002262 32 
BITPNT 001422 1114 
TO = 000001 22H 
BITOO = 000001 258 
BITO1 = 000002 550 
BITO2 = 000004 358 
BIT0$ = 000010 55M 
BITO4 = 000020 550 
BITOS = 000040 35M 
BIT06 = 000100 550 
BITO7 = 000200 550 
BIT08 = 000400 55M 
BITO9 = 001000 550 
BIT] = 000002 550 
BIT10 = 002000 55M 
BIT11 = 004000 550 
BIT12 = 010000 550 
BIT13 = 020000 208 
BIT14 = 040000 554 
BIT15 = 100000 554 
BIT2 = 000004 208 
BITS = 000010 550 
BIT4 = 000020 350 
BITS = 000040 350 
BIT6 = 000100 308 
BIT? = 000200 208 
BITB = 000400 xD) 
BIT9 = 001000 55M 
BPTVEC= 000014 reD] 
BUFFER 020034 958 
BUFF1 014064 1090 
BUFF2 014112 1176 
BUMPAD 006242 753 
BYPASS 006526 796 
B10 011432 13048 
B11 011466 13148 


82 


843 


689 
436 


1013 


7848 


83 


968 


712 
936+ 
440 


729 


1041 


= +24 
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USER SYMBOLS 


84 


1233 


450 451 452 


1193 
427 439 449 1360 
1107 1119 1121 1141 1153 1154 


1155 


SEQ 0075 


1177 
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'CCHAN 012314 
CH 012167 
CHAN 012251 
CHANL 001372 
CHANNL 007446 
CHECK = 104411 
CHKIT = 104412 
CHI 001360 
CH2 001362 


CR = 000015 
CRLF = 000200 
CRWR 012514 
C 014002 
C2 014005 
C3 014012 


DF 1 014664 
DH1 014445 
DH2 014501 
DHS 014564 


DT2 014636 
DT3 014654 
DUMC 011326 
DUMMY 001370 
DUMW 011254 
DGE 001420 
EDGFLG 007142 
EMTVEC= 000030 
Em 014325 
EM2 014347 


972* 


587 


1010* 


14614 


1468+ 


12798 
856* 


702 


isin ; a 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


572 590* 591 593* 594 601* 


306 330 14794 
840 842 860 
856 
532 559 564 656 12554 


519 845 1232e 


627 631 701 705 859 863 


860+ 918 
8/8+ 883* 886* 887* 888* 889+ 


665* 


913« 


893 


SEQ 0076 


666 


915* 


928 


M 6 
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‘CVADAC. P11 29-SEP-80 09:34 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0077 
EM3 014373 65 14464 

EM4 014420 71 14478 

ER 011066 1223 1225 12284 

ERMSG 012625 537 852 1056 1071 1083 1136 1228 13994 

RR 006714 849 8528 

ERRVEC= 000004 228 164* 250 251* 266* 798* 1467* 
FIRST 001352 914 962* 1036 1038* 

FIXADR 006340 785 7978 

FIXONE 006344 188 7984 

001410 1064 166* 183* 1086 . 1139 

GETDAT 010462 11444 81152 

GETEDG 006764 573 602 8704 

GMSG 012121 146 13754 

GNS = feteee 31 1366 1477 1478 1479 1480 
GUNITS 001436 1174 240* 255* 1366 1468+ 
HAFMSG 013015 1080 14054 

HALF 010146 1072 10744 

HEAD1 014145 186 14384 

HEADS 013723 717 14244 

HT = 000011 224 = 1471 

HUNS 014617 1330* 1342" 1344* 1347 14528 
IGND 012455 677 13944 

INRNGE 007704 1020 10234 

1OTVEC= 000020 228 164* 

ISERV 001464 1274 190 

IVOLT 012543 690 13964 
KBVECT 001344 884 189 821 

LAST 010020 1034 10484 
LEND 005212 620 6224 
LESS 011420 1299 13014 

F = 000012 224 861471 
LINEA 013702 1129 14234 
LOAD 010662 1178 1181 11854 
LOADY 011400 1094 1096 1188 12954 

LOADO § 010666 11864 1190 
LO2 010660 1140 11844 

LSB 012177 835 13814 

LSBMSG 012134 1046 13764 
MAT 014035 837 14324 
MAX 001430 1144 1160* 1165 1167* #81171 
MAXTST 010560 1163 11654 
MEND 013115 762 14084 
ME SP 013077 1218 14074 
MESR 013064 1215 14064 
METST 014042 1273 14334 
MIN 001424 112# =61159* = 1162 1164* 1170 
MINUS 012103 898 1323 13714 

$B 014027 639 14314 

MOFSET 014014 530 14304 

MSG16 013272 1089 14174 
MSG18 013200 1175 14114 

MSG20 013240 947 14154 
MSG21 013655 1106 14224 
MSG5O «013157 263 14104 

MSG71 = 013617 202 14214 

MOLSB 012431 695 13934 
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1002 
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1335 
1021* 


584* 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


1864 


10084 
1073 


1337* 
1063 


587* 
909+ 


1074 
264* 265 
234 
1085 1138 
1346* 14558 
1066 1069 


1210 1212* 
910* 911* 


1465 14778 


784 795* 
1226 13884 
1076 
1216 1224 

933 


817* 


SEQ 0078 


————_- ——-—_—---———- - - ——_- SX  —_-:-- 


| 8 7 
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[CVADAC.P11 29-SEP-80 09:34 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0079 

RELACC 010302 1087 1104 

REST? 002216 168 1878 

RESVEC= 000010 22" = 799s 

R 907140 896 900" 

RETERR 004160 471 473 

RETURN 001620 12H 6-727, B8BD.i919——«*21281 

RET? 001630 1548 973 

RET2 001634 1531554 

RMS 001404 104" 574* 578% 581" 1207 1209* 1213 1222 

RNA 001376 101# 192 = 948 

RNB 001400 1024 © 193# 949 

RNC 001402 103# 194" 950 

RST 011356 134 140 12878 

SARSUB 007144 576 579 «= 5B2s—“‘Qz«wS «=C62S)i‘«i sisi“ HTtséOTAN 

SAR1 007170 9128 

SE 012342 667 13908 

SETCH 012212 839 13824 

SETMSG 012061 598 = -1370# 

SETIA 006722 604 60 856# 

SHIFT 007326 934  936# 

SKIPST 001354 924 963" =««'1031* +=—:1051 =: 1054 

SKPMSG 012642 1053 1400# 

SLASH 012301 1131-13874 

SPACE 012172 646 = 739~=S «41380 

SPREAD 001412 1074 = 3B0®,=— 391" «1256 =:1263 1459 

STACK = 001100 , iS thn Ww 

STATE 012147 1039 13784 F 

STKLMT= 177774 P 

STREG 001316 77H 309 = 310319 «= 320s 33K8 «337 Shae S18 = 355* = 562" 3635718 
372, 381® «=-382,i892e «= 393 O7* = 0B 10 25* = 26 33" 48Ge 37 
440* 450" 451® «452% = 453 459 Oe 6B 469 545% = SH7# 5487168 
730* 732 «763. 7B7* «= BOI® 74x = BBT® = «9208 «= 926" = 71e «= 9BBe1237# «= 1243 
1276 1458 «= 1459S: 1460 

SWDIST 010220 1084 10864 

SWR 001140 38H 14421471508 = 64H 7217237851193 1467) 1468 

SWREG 000176 318164 

swO = 000001 224 

swOO = 000001 22m 

sw01 = 000002 208 

sw02 = 000004 208 

swO3 = 000010 208 

sw04 = 000020 208 

swOS = 000040 208 

Sw06 = 000100 . 228 

swO7 = 000200 208 

SwOB = 000400 204 

sw09 = 001000 208 

Sui = 000002 208 

Sw10 = 002000 208 

SW11 = 004000 228 

sw12 = 010000 208 

Sw13 = 020000 208 

Sw14 = 040000 208 

sw15 = 100000 208 

Sw2 = 000004 228 

sw3 = 000010 208 


| See eee perc em 
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ICVADAC.P11 — 29=SEP=80 09:34 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0080 

sw4 = 006020 22m 

SWS = 000040 20m 

Sw6 © = 000100 20H 

sw? = 000200 22H 

SW8 = 000400 22H ‘ 

Sw9 = 001000 22m 

TADDR 001374 100 1412 715® = 750 = 759% = 7758 

TBITVE= 000014 22m 

TCHK 005312 641# = 685.708 

TEMP = 001356 93H 242 = 245* = 2UB® 257 «= sS5 177i 1® «= S5B* «= 563* —627*# = 31* 632" = 635 
701* 705% 706 847 1001* 1006 1236" 1245* 1248% 12469* 1250* 1251* 1257 

TENS 014621 1329" 1338 «13389. 1341e «1345 14548 

TEST 004136 4694 1478 

TESTAD 002464 2398 «= 7512s 760—Ss«776 

TESTIT 004130 4684 = 1479 

TESTR2 011542 13314 133613401343 

TKVEC = 000060 22e 

TOFF 005270 531 6358 684 707 

TPVEC = 000064 22M 

TRAPVE= 000034 228 «1648 . 

TRTVEC= 000014 224 

TRY 007202 9148 937 

TRYAG 002314 2034 226 

TSTBIT 001440 118# ©=.241* = 255. 256 = -267* = 7B6* = BO0*_— ‘1468 

TST1 002670 2718 = 272 

TST10 003050 3084 

TST11 003112 3153184 

TST12 003156 2 3284 

TST13 003172 3326 

TST14 003236 3 3420 

TST15 003270 349" 

TST16 003332 3604 

TST1/ 003374 3708 

TST2 002732 2804 

TST20 003420 3778 = 430 

TST21 003464 385-3884 

TST22 003542 397 4004 

TST23 003670 414422 

TST24 003754 435# 

TST25 004026 448s ’ 

TST26 004162 477# 478479 

TST27 004232 486m 

TST3 002746 2844 

TST30 00426 4948 

7$T31 004312 501" 

TST32 004364 5134 

TST33 004444 526m 

TST34 00453 $38 541M 

TST35 004660 569" 

TST36 005044 597m 

S137 005170 612 6184 

TST4 002770 2908 

TSTS 003004 2958 

TS16 = 0030205 2998 


3044 
TST8 010572 1166 11684 


‘MALNDEC=11-CVADA=C 
29-SEP-80 09:34 


CVADAC.P11 


TYPDC = 
TYPE =| 


TYPEDG 007160 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
TYPOUT 011616 
TYPRP 010744 
TYPSET 006572 
UNEXP 001442 
VADR 001336 
VECTOR 001324 
VECTR1 001330 
VECTR2 001332 
VECTR3 001334 
VLIN 011670 
VNP 011664 
VNR 011662 
VSET 011666 
VTFLG 002432 
VTINIT 014132 
vT55 002206 
VVCT 001340 
vo 011646 
vi2 011654 
v2 011650 
v326 011660 
VG 011652 
v50D 011656 
WFTEST 001426 
WIDE 001346 
WIDMSG 012723 
WRAP 004162 
XADJ 012415 
YADJ 012607 
SAPTHD 001000 
SASTAT= seeeee 
SATYC 0 
SATY1 016360 
SATYS 0163 
SATY4 016376 
SAUTOB 001134 
$BASE 001250 
SBDADR 001122 
SBDDAT 001126 
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_ 
— 


—— 
Wrnm LOM -COOuU-@sFlo 


22 


=" 
NO NOONNUOOUVIWNNW 


SM NWA Of OOf~r 


nt al cal 
Pa 
= 
we 


eo 


10364 
1045 1052 1060 1064 1067 1078 
146 148 156 171 186 202 
637 639 644 646 663 667 
695 696 717 725 739 746 
852 898 947 1039 1044 1046 
073 1080 1083 1085 1089 1090 
176 1179 1182 1203 1206 1215 
13¢8 1347 — 1366 1463 1468 1469 


726 740 764 836 840 847 


1276 14778 

416 

787 788 789 

405* 416* 727* 790* 806* 807+ 
791* 794* 810+ 811+ 816* 

792+ 812* 813 

Bide 815* 

178 2284 

791 792 793 
13494 
1352e 
13544 

162* 200 246 

1035* 1062 1075 

777 

801 802 803 

253 259* 312¢ 314 322* 324 
454* 455 469+ 470 1257* 1258 


— 


cal ail <ul all 
SrmOOCONaANM— 


NO OUI NIM 
— CO OWN & W000 


894 


81 


0 


—s 


iad aad 

Mm One rwor 
WMO UO NO -- 
FOO nnwse 


899 


812 


384% 
1459 


— 


me OOO vuh 
NRNMMVWOW— 
Wie OWOWOOn 


814 


395* 
1460 


— 
ae 


—? ad ad od 
fre - oO@Mouwst 
NROWO WOO WOO 
NO? NH NO 


Ba 


880+ 


396 


SEQ 0081 


1133 


919 


410" * 


% . ; ox J, 
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[CVADAC.P11 29-SEP-80 09:34 CROSS REFERENCE TABLE -- USER SYMBOLS 


‘SELL 001164 384 © 1468 

$BIN 017126 1475H#* 

$CDW1 001254 384 

SCHARC 016354 14718 

SCKSWR= eeeeee U 147 

SCMTAG 001100 38H 164 

$CM3 = 000000 8 

SCNTLG 015131 14634 

SCNTLU 015124 14634 

SCPUOP 001222 384 

SCRLF 001171 38H 6447467671463 1468 1469 
SDEVCT 001204 384 

SDEVM 001252 « 

$DOAGN 012032 13664 

SENDAD 012022 1366" 1468 

SENDCT 011742 164 13664 

SENULL 012036 13664 

SENV. 001214 38H 1468 «= 14711472 

SENVM 001215 384164 24314711472 

SEOP 011706 756 2772, 781s«*1 3668 

SEOPCT 011734 164"  1366# 

SERFLG 001103 38H 121® ««1467* = 1468 

SERMAX 001115 384 = 164e = 14678 

SERROR 015540 164 14688 

SERRPC 001116 38" 1458 «= «1459-1460 «= 146B® = 1469 
SERRTB 001256 384 © 1469 

SERRTY 015742 1468 14694 

SERTTL 001112 384 | 1468s 

SESCAP 001162 384 = 120® «= 123 1648 «= 1467*# = 1468 
SETABL 001214 384 

SETEND 001256 37 38 

SFATAL 001176 1472s 

SFFLG 016624 1472He 

$FILLC 001156 384 1471 

S$FILLS 001155 384 1471 

$GDADR 001120 384 

$GDDAT 001124 3840273" «= 276 = 277s B® = 2B6* 2918 


333* 352+ 361* 378+ 389« 396 411* 
1255* 1259 1458 1459 


$GET42 012012 13664 
SGTSWR= teeeee | 1477 
HD = 000000 21 
$HIBTS 0010 hl 
SHIOCT 015260 14654* 
SICNT 001104 384 1467* 
SINTAG 001135 384 
SITEMB 001114 384 8 1468* 1469 
F 001172 384 8 1463 1468 1471 
SLFLG 016623 1472a* 
SLPADR 001106 384 164* 271 479* 1272* 1282" 1467* 
SLPERR 001110 384 164* 272e 478 1271" 1281* 14678 
SMADR1 001226 384 
SMADR2 001232 384 
SMADRS 001236 384 
SMADR4 001242 384 
SMAIL 001174 37 384 164 1467 1468 1471 


1471 


2968 
4278 


1468 


300* 
439 


305* 
449* 


313* 
455 


323* 
468 


SEQ 0082 


329% 
470 


t--—— CS 


MAINDEC-11-CVADA-C 


CVADAC.P11 


“SMAMS1 
‘Shanse 


SSWREG 
SSWRMK= 
STESTN 
STIMES 


$TKB 
| $TKS 
| $IN = 


$TPB 
STPFLG 
| $TPS 


} 


001224 


000001 


017050 


ateeee 
terres 
015262 
000027 
177777 
015466 
000214 
167400 


001216 
000000 
001200 
001160 


001146 


001144 
000040 


001152 
001157 
001150 


29-SEP-80 09:34 


2904 
3884 
5974 


619 
1468 


1463 


2 
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CROSS REFERENCE TABLE -= USER SYMBOLS 


2958 2998 3044 3084 3184 
4004 422# 4354 448# 477# 
6184 

1269 1279 1366* 1467 

1471 
1467 1468 

164 271 280 284 290 
349 360 370 377 388 
513 526 541 569 597 
360* 477+ 486% 4948 501* 
1463 

336 346* 368* 648« 649 
2844 2904 2954 2998 304e 
3498 3604 3704 3778 385 
4488 4/74 4864 494 501" 


3284 
4864 


3328 
494m 


3428 
S04 


SEQ 0083 


3498 
5134 


G 7 
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STRAP 017130 164 14778 
‘$TRAP2 017152 14778 
'$TRP = 000014 1477 14788 16798 14808 
‘STRPAD 017164 14778 
|$t STM 001004 374 
STSTNM 001102 3a 0 G77* «= 1366* «=: 1467* = 1468 
STTYIN 015114 14634 
$TYPBN 017054 1475#@ ©1477 
STYPDS= eeenee 1477 
$TYPE 016076 14714 1472 1477 
STYPEC 016310 14718 
STYPEX 016356 14718 
$STYPOC 016652 14748 1477 
'STYPON 016666 1474# 1477 
$TYPOS 016626 1474" 1477 
SUNIT 001206 384 
SUNITM 001010 378 
$USWR 001220 384 
$VECT1 001244 38% = 806 808 
SVECT2 001246 . 38% 
$XTSTR 015272 14674 
$$GET4= 000000 13664 
SOFILL 017051 1474H* 
S4OCAT= teeeee YJ 1467-1468 
= 040034 284 314 354 364 374 38a 164 13664 14634 1467 1468 14694 1471 
14724 14824 14834 
SASTA= teeeee 1472 


.$x = 001000 374 


H 
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BERROR 174 1468 

COMMEN 228 

DUMWRN = 43H 401423 

'ENDCOM =. 22# 

ENDPAS = 12# 1366 

JERROR Te: ae, oe 
367, 376 386 (9B 

/ESCAPE = 228120 


293 298 302 307 316 326 
457 500 


9 348 357 
485 492 5 


562 567 


'GETPRI 228 

'GETSWR 20M 

MULT 22 

NEWTST 22H 3=— 271 280 284 290 295 299 304 308 318 328 332 342 349 360 

| 370 377 388 400 422 435 448 477 486 494 501 513 526 541 569 

| POP 224 ©1465 1472 

PUSH > et eet 

REPORT 22m : 

SCOPE 22H = 280 284 290 295 299 304 308 318 328 332 342 349 360 370 
317 388 400 422 435 448 463 486 494 501 513 526 541 569 597 

SETPRI 22 

SETTRA 1477# 1678 1479 1480 

SETUP 22H 3-164 

SKIP 22" ~=— 201 211 214 217 220 223 230 Z 234 2446 247 258 260 278 
311 315 321 325 338 385 397 414 456 471 511 538 592 595 612 
616 636 642 645 650 652 653 659 671 673 675 686 687 709 710 
724 1194 1196 

SLASH 22" 

SPACE 228 

STARS 22m 35 37 38 271 280 284 290 295 299 304 308 318 328 332 
342 349 360 370 377 388 400 422 435 448 477 486 494 501 513 
1338 541 569 597 i ee es ee es ee? ee et ee et 1472 14742 *1475 

SWRSU 22" 3s: 1648 

TRMTRP 14778 

TYPBIN 224 ©1366 

TYPDEC 22M 

TYPNAM 228 

TYPNUM 224 

TYPOCS ae 147 262 726 740 836 840 847 894 899 1063 1130 1133 »# 1221 1274 

TYPOCT 22# 1469 

TYPTXT 228 ©1366 

SSCMRE 38a 

SSCMTM 384 

SSESCA 224 

SSNEWT 22H = 271 280 284 290 295 299 304 308 318 328 332 342 349 360 
370 377 388 400 422 435 448 477 486 494 501 513 526 541 569 

'$$SET  1477# 1478 1479 1480 


SSSKIP 228 33 325 338 385 397 414 558 612 


EQUAT 8a 2 
HEADE ga 21 


“ 
mn 
— 
S 
—ys 
o 
aa 
ww 
oOo 
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CVADAC.P11 29-SEP-80 09:34 CROSS REFERENCE TABLE -= MACRO NAMES SEQ 0086 
SWRLO 23a 
$ACT1 114 35 
$SAPTB ia 384 
SAPTH 11a 37 
SAPTY 114 1472 
SCATC 8a 31 
SCMTA 84 38 
. SEOP 8H 1366 
. SERRO 8H 1468 
SERRT 104 1469 
SPARM 9" 
$RDOC 114 1465 
SREAD 9# 1463 
. SSAVE oF ] 
$SCOP 94 §=61467 
SSPAC 104 
.$SW00 10# 
. STRAP 104 1477 
.STYPB 9# = =§=61475 ‘ 
.STYPD 114 
-STYPE 104 1471 
.STYPO 94 = 1474 


- ABS. 040034 000 OvR RO aes it. i! 


ERRORS DETECTED: 0 


CVADAC ,CVADAC/CRF =CVADAC 
RUN-TIME: 20 9 1 SECONDS 
RUN-TIME RATIO: 99/31=3.1 
CORE USED: 26K (51 PAGES) 


